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ABSTRACT 


A computer program, named ADffT (A Distinctly Bspirical Prover of Theorems), 
has been written which proves theorems taken from the abstract theory of 
groups. Its organisation is basically heuristic, incorporating many of the 
techniques of the hisnan mathematician In a "natural" way. This program has 
proved almost 100 theorems, as well as serving as a vehicle for testing and 
evaluating special-purpose heuristics. A detailed description of the program 
Is supplemented by accounts of its performance on a number of theorems, thus 
providing many Insights into the particular problems inherent in the design 
of a procedure capable of proving a variety of theorems from this domain. 
Suggestions have been formulated for further efforts along these lines, and 
cosiparisons with related work previously reported in the literature have been 
made. 
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CHAPTER I 


INTRODUCTION 


Since its earliest days, research on artificial intelligence has been 
concerned with the mechanization of theorem-proving. Investigators have ap¬ 
proached the problem from two directions, combinatorial and heuristic. Pro¬ 
grams have been constructed which operate in an essentially combinatorial 
manner on statements of the predicate calculus. Due to the work of Herbrand 
and Gentzen, it was known how to describe a procedure, completely mechanical 
in nature,- that would be able to prove every "provable" theorem, sooner or 
later. Here the word "provable" is used in its technical sense, and the 
reader may refer to any book on symbolic logic. A proof procedure such as 
Herbrand 1 s is known as a complete proof procedure, and in the early days of 
digital computers it was not universally appreciated that even the large 
speed and memory of the computer would not suffice to make implementation of 
a complete proof procedure practical for problems of respectable complexity. 
However, due to results obtained with early codings of Herbrand's procedure, 
it was soon discovered that the inefficiency of these algorithms quickly ex¬ 
hausted the resources of the largest and fastest computers. Much work has 
subsequently gone into refinements and modifications of complete proof proce¬ 
dures, and considerable improvements have been made. Some programs of this 
nature will be discussed in an appendix. 

The other approach to proving theorems by computer has been the heuristic 
one. Projects in this class are not to be confused with those programs, es¬ 
sentially combinatorial in nature, which have been modified by the inclusion 
of heuristics. Rather, the basic structure of the algorithm must be heuristic 
in nature. The earliest such attempt, and an important one, was the Logical 


6 






Theorist of Newell, Shaw, and Simon. Further work by these authors 

was joined by the so-called "advice-taker" approach originated by McCarthy.^^ 
Many of these programs are in reality general reasoning algorithms, and their 
use as theorem-provers was done merely by way of an example. The heuristic 
approach holds out the enticing possibility of capturing the essence of human 
procedures which enable difficult problems to be handled with a reasonable 
amount of effort. The price to be paid is that of expressing, in the form of 
a computer program, most of the large number of methods that people use, often 
without realizing that they are doing so, while solving problems. 

The work to be discussed here belongs in the second category. Its devel¬ 
opment, however, has been of a different nature than that of most previous 
heuristic problem solvers. In this case, there has been no attempt to develop 

a general problem solving mechanism. Instead, attention has been focussed on 

( 22 ) 

the abstract theory of groups (not necessarily finite), and in particular 

on the question of an algorithm uniquely designed to handle theorems of this 
particular area of pure mathematics. As is related at the end of this report, 
the program actually constructed can be easily adapted to "advice-taker” prob¬ 
lems in other areas — a fact hardly surprising in view of the reasoning capa¬ 
bilities needed to solve theorems in any branch of mathematics. But the 
creation of the program was done with only group theory in mind. 

In fact, the program was created only as a step toward a computer 
procedure for solving difficult problems in the theory of groups. Just as 
it was necessary to actually program Herbrand's procedure in order fully to 
appreciate the difficulties which arise in using this method with a digital 
computer, so it is necessary to have a program capable of handling a fair 
number of group theory theorems of slight to medium difficulty in order fully 
to appreciate the difficulties inherent in coping with the theory of groups 
using a digital computer. Existing programs had proved a few elementary re¬ 
sults in group theory, and more are being done as time goes on, but no pro¬ 
gram reported in the literature has proved more than a handful of theorems 
from this subject, and in particular, very little work in group theory has 
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been done by programs of a basically heuristic nature. 

Most heuristic proof procedures, including the one to be discussed in 
this report, employ a main routine which works backward. That is, it begins 
with the statement which is to be proved, and constructs a chain of statements 
in the hope of reducing the original statement to one which is known or can be 
established. The chain is so constructed that if such a statement is found, 
the desired conclusion is proved or partially proved. In other words, at any 
point, the chain is part of a "proof tree" leading, by means of valid infer¬ 
ences, to the desired conclusion, though no part of it will be a true proof 
tree until some verifiable branches are generated. There is, usually, no 
guarantee that the chain will be turned into a true proof. The alternative is 
a forward approach, which consists of deriving statements from the hypotheses 
and axioms. In this approach, all chains are true proofs; the problem is that 
most statements proved are of no relevance to the desired result. In (14), 
Newell, Shaw, and Simon argue for the "working backward" approach. They liken 
it to the process a needle would use to find its way out of a haystack, as 
opposed to a search for a needle in a haystack. 

In addition to the basic structure of a program (that is, the 
organization of its main routine), there are the special-purpose subroutines 
which enable it to perform capably in a complex problem area. These sub¬ 
routines may incorporate individual heuristics; what is more, if the main 
routine is properly organized, they can be altered in various ways, thus 
making it possible to perform experiments which will help determine more suc¬ 
cessful methods for dealing with the problem area in question. This is cer¬ 
tainly true with heuristic theorem-provers. In developing the main routine, 
one must decide such questions as "in which direction is a proof to be devel¬ 
oped?" But the task of establishing theorems can only be done with the ad¬ 
ditional aid of many special-purpose techniques, each of which must be incor¬ 
porated somehow into the basic program. 

One of the advantages of the heuristic approach is that various 
techniques used by human problem-solvers can be directly incorporated into 
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the program in a natural way. This was definitely a major consideration of 
the present project. Admittedly, it is not true that people organize their 
problem-solving efforts exclusively in the "working backward" manner employed 
by this particular heuristic program. However, it is fair to say that a large 
amount of theorem-proving is done in that fashion, and certainly a proof pro¬ 
ceeding in that manner is "natural" in appearance. Similarly, it is easy to 
attach various subroutines to a main routine organized to proceed backward. 

With the organization outlined above, a computer program was written, 
designed to produce efficient and natural-appearing proofs for theorems of 
group theory. The program is known as ADEPT, which stands for "A Distinctly 
Empirical Prover of Theorems". As its name indicates, ADEPT is extremely 
ad hoc, which should not be surprising when one considers how non-compact and 
poorly formalized are the methods that people use. Thus ADEPT does not have 
a neat, transparent algorithm, and any reader who feels that all mechanical 
theorem-provers should be basically tidy will be disappointed in the present 
work from that viewpoint. However, compensating for the complexity of the 
program is the ease with which ADEPT may be augmented with direct analogues 
of various shortcuts which people successfully use, and in this respect rapid 
development took place in this project. A notation was developed which was 
simple to use, incorporating English terms in a "Cambridge Polish" format.^ 
This helped obtain flexibility for experimenting with special-purpose heuris¬ 
tics, and ADEPT became a useful tool for investigating the problem area of 
group-theoretic theorems. 

A large percentage of the special-purpose heuristics used with ADEPT 
restrict the growth of the proof tree. Ideally, no irrelevant steps should 
be allowed by such heuristics, and no step necessary to a correct and effi- 
cent proof should be prevented from occurring. In practice, of course, the 
heuristics are imperfect and fail to some degree in both respects. What seems 
to be needed is for the program to understand where it is in a proof; to be 
aware of what it is doing, and why. It is of no interest here to argue over 
whether or not a program can ever "be aware"; the effect is what is of 


9 



interest. A program which generates efficient proofs for a large number of 
theorems is the goal, and if it is achieved one might as well say that the 
program is "aware". Certainly the benefits of awareness will have been 
obtained. 

A great amount of effort went into achieving such a property in ADEPT. 

In fact, a strong requirement was adopted from the beginning. One algorithm 
was to suffice for all theorems, yet be efficient in all cases. ADEPT never 
"backtracks". If for some reason it fails to prove a theorem, it does not 
remove some or all heuristic restrictions, though this could be done rather 
easily. Until the program is improved, enabling it to handle that theorem 
without any serious loss of efficiency in other proofs that it has success¬ 
fully produced, it will just be unable to prove that theorem, efficiently or 
inefficiently. This requirement may seem harsh, for people sometimes quit 
and start over in a different way, but it must be remembered that ADEPT is 
not doing advanced problems. Thus it is reasonable to experiment and find 
out just how far this "one-pass" approach can be carried. 

Closly related to the idea of "awareness" is the question of ascertain¬ 
ing when progress is being made in a proof. There is no simple way to do 
this — no metric, no compact test. As will be seen, much of the effort of 
developing a program which appears to understand what it is doing went into 
an analysis of how to recognize those steps which constitute real advancement 
toward the desired goal. 

The construction of a theorem-prover using this philosophy did not occur 
all at once. An "evolutionary" process was involved, as the fine points of 
the problem became evident. Thus the earlier versions of ADEPT served as 
vehicles for understanding the task of theorem-proving better, and for sug¬ 
gesting new heuristics to be incorporated into the program. Ihis report 
tries to make this developmental aspect of the project clear. 

The presentation of both the development of ADEPT and its latest version 
is supplied with numerous, detailed examples. ADEPT has been used to solve 
many theorems, and each has provided new insights into the needs of any 
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algorithm which must cope with many diverse, individual theorems. Examples 
are given to illuminate the reasons for various additions which have been 
made to ADEPT. Others illustrate the more interesting abilities of ADEPT to 
prove problems efficiently. Still others point out the deficiencies which 
still remain. The totality represents a long program of experimentation, and 
underlines the worth of a working system which can be readily used to explore 
a problem area in detail. 

The theorems presented to ADEPT are all familiar to a student of group 
theory. For the most part, they are given in this report using a common 
mathematical notation. Those terms which represent concepts which must be 
defined in order to specify the theorem will be underlined when used in the 
statement of a theorem. From a syntactic point of view, of course, the pre¬ 
cise statement of the hypotheses, conclusion and relevant definitions deter¬ 
mine the problem to be proved. A slight variation in these statements results 
in a completely different problem. However, such a variation may not be a 
different problem from a semantic viewpoint; i.e., its interpretation in 
group theory may be equivalent. It is also possible that a variant of a 
problem may have a different (e.g., broader) interpretation, yet result in 
the same operations by the program. Experiments have been carried out in¬ 
volving alternate versions of a number of problems, and indeed the notation 
used by ADEPT allows flexibility in arranging such experiments. In general, 
the view is adopted that if ADEPT can prove some but not all of two or more 
semantically equivalent but syntactically different versions of a theorem, 
ADEPT "can prove the theorem". 

With this introduction, it is time to begin the actual detailed report. 
Chapter II introduces the notation (i.e., syntax) used by the program, and 
presents other details necessary to understand the description of the opera¬ 
tion of the program itself, which is given in Chapter III, accompanied by 
numerous flow charts. The fourth chapter specifically discusses ADEPT'S 
special-purpose heuristics — their development, purpose, and operation. 

Then, accounts of detailed problems commence, and it is felt that the number 
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and length of the problem descriptions are extremely valuable for an under¬ 
standing of this project. Theorems successfully proved by ADEPT are the main 
content of Chapter V, while Chapter VI concentrates on those theorems which, 
for any of a number of reasons, the program cannot handle. Chapter VII is a 
description, with examples, of extensions to the ADEPT program which have 
actually been carried out, though in some cases rather crudely. Then Chapter 
VIII suggesLs possible alterations, additions, and directions for future work 
which have not been explored Lo date. An appendix reviews the field of me¬ 
chanical problem-solving in the. light of the present effort, covering both 
heuristic and combinatorial programs which have been reported in the litera¬ 
ture. A bibliography and index supplement the text. 
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CHAPTER II 

DESCRIPTION OF ADEPT — I 
NOTATION, CONVENTIONS, ETC. 

ADEPT has been programmed in the language LISP 1 . 5 , using a special 

version of the system created by Joel Moses, a variant of the system currently 
i (4) 

m use at MIT s Project MAC. The special version provides an increase of a 

thousand words (or 14$) of binary program space by eliminating those features 
of the standard LISP package which are not used by the ADEPT program. As much 
of ADEPT as is possible is compiled. No new features were added to the LISP 
sys tern. 

Since ADEPT is programmed in LISP 1.5, it is advantageous to have state¬ 
ments of its own language appear as lists to LISP. As will be seen in this 
chapter, the notation adopted for representing mathematical statements pos¬ 
sesses this property. In particular, the basic (or atomic) entities of this 
notation form a subset of LISP's atomic symbols . For ADEPT, a symbol is a 
string of alphanumerics, the first of which is a letter or an asterisk. Sym¬ 
bols are delimited by blanks or parentheses. 

To describe the language used by ADEPT, one must first designate which 
symbols are used for variables and constants . Three types or sorts of vari¬ 
ables and constants are provided for in the basic system, though more types 
could be added in the future, as mentioned in Chapter VII. The same symbols 
are used for both the variables and constants of a given type, and a flag 
associated with each symbol indicates which use is being made of it at a given 
time. Single letters (A through M, excluding F because of its special role in 
the LISP language) are used to designate sets, the symbols FI through F9 are 
used for functions, and the symbols A1 through A12 represent variables which 
may be members of sets. In addition, the program is provided with a facility 
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to define new variables or constants, as needed by internally generating new, 
unique symbols. 

By choosing the variable types as above, a two-level hierarchy of member¬ 
ship is fixed. Clearly ambiguity is possible with such a system, as, for in¬ 
stance, with a coset, which while it is a set with its own members, also can 
be itself a member of a larger set, the factor group. Hie burden of deciding 
whether such an object must be considered to be a member or a set in a partic¬ 
ular problem rests with the user, who must use one type of symbol or the other 
when he states the problem. This limitation caused no difficulties while ex¬ 
perimenting with ADEPT; i.e., no problem required three or more explicit 
levels of inclusion. 

The language contains connectives or propositional terms, and the follow¬ 
ing symbols are recognized as such: AND, OR, NOT, IMPLIES, IMPLIES2. 

IMPLIES2 is the notation for the biconditional (<-«>). In addition, the lan¬ 
guage presently contains three logical constants . EQUAL2, EQUAL, and FEQUAL, 
all of which are used to represent equalities. EQUAL2 is the basic symbol, 
and the "2" emphasizes the symmetric nature of equality. EQUAL and FEQUAL 
are present to allow the user easy implementation of some heuristic options. 
The use of EQUAL in a statement will restrict ADEPT to substitutions in only 
one direction, as will be seen in Chapter III. This makes it possible for the 
user, by his choice of logical constant for stating an equality, to provide 

7 

that an axiom such as a^a^ ^ “ e allow only simplifications, thus preventing 
expansions. An equality to be proved , stated using FEQUAL, will be processed 
differently by ADEPT from one stated using EQUAL2 or EQUAL, and this feature 
will also be described in the next chapter. Experience has shown that the 
flexibility provided by these options is of tremendous value. (When mathemat¬ 
ical notation is used in this report to describe a proof, the symbol » will 
ordinarily be used for equality. However, if confusion is present or if it is 
important to specify the exact form of a statement in ADEPT'S language, math¬ 
ematical notation will be augmented by the symbols ^and , correspond¬ 
ing to EQUAL2, FEQUAL, and EQUAL respectively, and the notation for EQUAL is 
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intended to emphasize that the second argument can be substituted for the 
first, but not vice versa .) 

The symbol EXISTS is used as an existential quantifier , but there is no 
explicit universal quantifier. This should not be surprising, for most uses 
of the universal quantifier in group theory are implicit. Any statement with 
variables not bound by an existential quantifier is interpreted as being uni¬ 
versally quantified over those variables. As for the existential quantifier, 
it will be seen in the next chapter that ADEPT does not use a uniform proce¬ 
dure to handle it. Instead, special cases are provided for separately, and 
new subroutines can be created as the need for treating more cases arises. 

The name syntactic constant will be used to group together connectives, 
logical constants, and quantifiers. The operations performed by ADEPT upon 
encountering a syntactic constant will be discussed in Chapter III. 

Any symbol which is not a variable/constant or a syntactic constant is a 
term . Terms can be identified by entries in tables of necessary and suffi¬ 
cient conditions. When the operation of ADEPT is considered, it will be ex¬ 
plained why there are in fact only two tables — one of sufficient conditions 
and one with definitions (necessary and sufficient conditions). There are 
two terms which are given null entries in these tables MEMBER and *PROD 
and thus may be considered to be primitives. 

Terms may start either with an asterisk or with a letter, and it will be 
seen that asterisked and non-as terisked terms have different roles in the 
syntax of the language. Consequences of the use of the two kinds of terms 
will appear throughout this report. 

It is now time to see how the various symbols are combined into state¬ 
ments. First, it is necessary to describe an intermediate notion which is 
essentially a generalization of the concepts of variables and constants, and 
which also is subdivided into types. Objects are defined (recursively) as 
follows: 

i) a set variable or constant is a set object (e.g.. A); 
ii) a member variable or constant is a member object (e.g., Al); 


15 




iit) a list of three elements, the first of which is a function 
variable or constant and the second and third of which are 
set objects, is a function object (e.g., (Fl A B)); 
iv) a list of four elements, the first three of which are as 
in iii) and the last of which is a member object, is a 
member object (e.g., (Fl A B A1)); 
v) a list of one or more elements, the first of which is 
an as terisked term and the rest of which are objects 
of any type, is an object of type to be determined by 
the user's interpretation (e.g., (*CENTER G)). 

In iii), iv), and v), the compound objects , the elements of the list excluding 
the first are arguments of the first element, and the list is said to be 
headed by its first element. All lists conform to the syntax of the program¬ 
ming language LISP 1.5. 

Some comments on the concept of object are in order. The definition by 
iii) of function objects and the closely related definition by iv) of certain 
member objects are illuminated by the intended interpretation. The second 
and third elements of these lists are to be understood as the domain and 
range, respectively, of the function. The fourth element of the list, if 
present, is the argument of the function in the mathematical sense. Thus 
(Fl (*INTERSECTION H K) K) might denote the canonical map from HflK into K, 
and (Fl (^INTERSECTION H K) K Al) would then denote some point of K, namely 
the image of Al under the map in question. Note that function variables or 
constants are not allowed to "stand alone" as function objects. All functions 
have a domain and range, and the language, unlike mathematical notation, re¬ 
quires that this must be made explicit. Incidentally, the syntax allows ob¬ 
jects that have no interpretation. For instance, the object (Fl A B Al) is 
meaningless unless Al is contained in A. 

The intended interpretation also supplements the definition of objects 
given by v). Here the user, in formalizing a definition or sufficient condi¬ 
tion for an asterisked term, will determine what arguments^are needed, and 
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therefore their type. (^IDENTITY G) is a possible example of a member ob¬ 
ject with one argument, a set object. ^INTERSECTION H K) was used above as 
a set object with two set objects as arguments. Thus the asterisked term in 
this kind of object syntactically is a function. 

Objects are combined with the other symbols into statements or formulas 
according to the following recursive definition (all statements will be lists 
to LISP 1.5): 

i) a list of two or more members, the first of which is a 
non-asterisked term and the rest of which are objects of 
any type, is a statement (e.g., (SUBGROUP H G)); 

ii) a list of three elements, the first of which is EQUAL, 

EQUAL2 or FEQUAL and the other two of which are member 
objects, is a statement (e.g., (EQUAL2 Al (^IDENTITY G))); 

iii) a list of two elements, the first of which is NOT and 
the second of which is a statement, is a statement; 

iv) a list of three elements, the first of which is AND, OR, 

IMPLIES, or IMPLIES2 and the other two of which are 
statements, is a statement; 

v) a list of three elements, the first of which is EXISTS, 
the second of which is a variable, and the third of which 
is a statement, is a statement. 

Clearly, meaningless statements are possible; i.e., ones with no inter¬ 
pretation. However, the intended use of the various forms of statements 
should be clear, except for those defined by i). There is, of course, a 
parallel between such statements, headed by a non-asterisked term, and the 
objects headed by an asterisked term. The arguments in each are determined 
by the user s use of the term. However, a statement headed by a term is in¬ 
terpreted as a statement about its first argument . Thus (CENTER C G) says 
that C is the center of G, and (HOMOMORPHISM (Fl G H)) says that a certain 
map is a homomorphism. Non-asterisked terms, then, serve as predicates, with 
a restricting convention on the order of the arguments. 
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Any statement which contains an object headed by an asterisked term can 
be translated into one that does not. For instance, the statement 
(INTERSECTION I (*CENTER G) H), which says that I is the intersection of the 
center of G and some set H, could be restated as (AND (CENTER C G) 
(INTERSECTION I C H)). This is a direct parallel to the practice of intro¬ 
ducing variables in a proof stated in mathematical notation; e.g., "Let C be 
the center of G, and consider the intersection I of C and H. Then...." 

Though such a translation is always possible, it is not always desirable. 

For instance, a user would not want to eliminate an instance of 
(*INVERSE Al G) any more than a mathematician would want to say "let y be the 
inverse of x" instead of simply using "x (The symbol G denotes the set 

on which composition, and hence the inverse, is defined.) 

A converse translation, eliminating non-asterisked terms in favor of 
asterisked terms, is not possible. How, for instance, could "a^e G & & 2 e 
be expressed, since both (MEMBER Al G) and (MEMBER A2 G) could only be trans¬ 
lated into (*MEMBER G), thus losing information? An object such as 
(*MEMBER G) would be a variable, syntactically. To simplify construction of 
ADEPT'S matching routines, a convention has been adopted providing that all 
objects headed by an asterisked term must be used as constants . Thus 
(*M04BER G) would be excluded (except in the unlikely case that G has but 
one member), while (*CENTER G) is an object which could appear in a state¬ 
ment. Translation from statements headed by non-asterisked terms is there¬ 
fore limited to cases where the term uniquely specifies its first argument. 

While use of asterisked terms is natural in some cases, such as the 
above-mentioned example of inverses, at other times it is not obvious whether 
or not such terms should be used. A number of examples will be given in 
later chapters illustrating the effects of notation on specific problems. It 
suffices to say here that ADEPT'S language allows a degree of flexibility in 
this regard which sometimes can be exploited to advantage. The program it¬ 
self has no facilities for translating from the use of one type of term to 
the use of the other. 
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All proofs constructed by ADEPT are lists of statements, developed by 
operations on statements, so sufficient information on notation has been pre¬ 
sented to allow discussion of a proof. However, for purposes of programming, 
many statements have associated property lists , which are inserted into a list 
which is a true statement, preceding the first element. This is the standard 
form of a table entry . In LISP terminology, CAR of a table entry is the prop¬ 
erty list, and CDR of a table entry is a statement. For example, statements 
to be entered in the tables of conditions and definitions are accompanied by 
a property list consisting of the term being specified, followed by variables 
of appropriate type serving as dummy arguments. An example will clarify: a 
sufficient condition for subgroup (closure under products and inverses) is 
given by ((SUBGROUP A B) IMPLIES (AND (MEMBER Al A) (MB1BER A2 A)) (AND 
(MBMBER (*PROD Al A2 B) A) (MEMBER (*INVERSE Al B) A))). Now if it were 
desired to expand the statement (SUBGROUP H G) using this condition, the de¬ 
sired substitution Instance of the statement given in the table entry could be 
obtained easily with the aid of the result of matching the property list with 
the statement to be expanded. Note how the property list of a definition or 
condition specifies the number and type of arguments of a term. The primitives 
MEMBER and *PROD have their arguments similarly specified by null definitions — 
((MBiBER Al A)) and ((*PROD Al A2 A)) respectively (where the third argument 
of *PROD is the set on which the composition is defined). Needless to say, 
consistency in the use of arguments must be followed in creating the tables of 
conditions and definitions. 

To complete the groundwork for the discussion in Chapter III of the oper¬ 
ation of the ADEPT program, it is desirable to discuss the way in which a pro¬ 
posed theorem is inputted to the program, and the output that is obtained from 
it. Instrumental to this discussion is the fact that in the course of working 
on a proof, ADEPT develops two lists, or tables. Table I is a list of known 
statements — either hypotheses, axioms, or certain intermediate results; 
table II is the proof tree proper. 

A problem is presented to ADEPT in three statements, each of which may be 
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a conjunction. The first two are hypotheses, either (or both) of which may be 
vacuous. The first of these will have all of its variable/constant symbols 
fixed (i.e. flagged) as constants; any additional variable/constant symbols in 
the second will not be flagged. Both statements are then "sent" to a subrou¬ 
tine called PUTONl (described in the next chapter) for inclusion on table I. 

The third statement of input is the desired conclusion. All of its vari¬ 
able/constant symbols will be fixed as constants except those appearing in 
(sub)statements headed by the connectives IMPLIES or IMPLIES2. The conclusion 
will be put on table II by the subroutine PUT0N2 (also to be described in 
Chapter III). No syntax check is performed on any statements inputted or 
internally formed to insure that they are legally formed, so the user must 
exercise care. 

In this way the determination of whether variable/constant symbols are 
used as constants or variables is handled during the inputting of a problem to 
ADEPT. Any such symbol not flagged as a constant is treated as a variable. 

In the course of a proof, additional symbols may be generated, but the purpose 
for the generation will specify their use. A restriction on the user in this 
regard is actually the only unfavorable consequence observed due to the absence 
of an explicit universal quantifier in the language. This is the fact that any 
symbol intended to be a variable in an implication which is part of a conclu¬ 
sion must not have been previously fixed as a constant due to its use in the 
first hypothesis. For example, if (LCOSET A Al B C) were the first hypothesis 
(A is the left coset of B given by Al where composition is defined on the set 
C — e.g., B is a subgroup of C and A is a^B) then (IMPLIES (MEMBER Al A) 
(MEMBER Al C)) would not be a way of stating the conclusion that A is a subset 
of C. The intent, having the Al of the conclusion be a universally quantified 
variable, is thwarted by the previous treatment of Al in the hypothesis as a 
constant. Thus the conclusion presented as above would result in a proof that 
just Al, the particular element specifying the coset, is a member of C. (Note 
that the statement (IMPLIES (MEMBER Al (*LCOSET Al B C)) (MEMBER Al C)) as a 
conclusion would also have the restricted interpretation, but this statement 
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could not have any other interpretation anyway!) Use of A2 in the conclusion 
would remedy the problem, which is an uncommon one, since other methods of 
stating conclusions avoiding implications are usually not only possible but 
more natural, as in this case, the statement (SUBSET A C). The user must also 
be careful when using implications in conclusions to insert hypotheses which 
as constants any variable/constant symbols which must be so treated 
in the implication. This conceivably could necessitate dummy hypotheses. 
Alternatively, the whole problem (which seldom is encountered) could have been 
avoided by requiring the user to accompany the three input statements with a 
list of which variable/constant symbols are to be treated as constants. 

The manner in which the proof tree is developed is the subject of the next 

chapter, but a few remarks will now be made concerning the structure of table 

II. Basically, it is an embodiment of the "working backward" approach to 
(14) 

theorem-proving. As indicated above, the desired conclusion becomes the 

first node, or head , of the proof tree. Loosely speaking, the proof procedure 
may be said to be an attempt to reduce the desired result to a statement which 
is already established. For this reason, branches of the tree are called 
reductions. A reduction of a node is, with one exception, a statement which, 
if verified, would suffice to verify that node. A node, of course, may have 
any number of reductions. The exception referred to occurs at a node which is 
a statement headed by the connective AND. Such a node is immediately subdi¬ 
vided and therefore has two and only two reductions, its conjuncts, each of 

whfch must b e verified in order to verify the conjunction. The notation of 
(23) 

Slagle will be used in diagrams of proof trees; reductions are indicated 

by lines descending from the parent node, and reductions which must both be 
proved in order to verify the parent node are linked by an arc (Figure 1). 

Statements on both tables I and II have associated property lists. The 
table I entries are accompanied by a line number and a numerical indicator of 
the logica1 class to which the line belongs, a concept which will be developed 
in Chapter III. The property list of a table II entry is more complex. Its 
composition is as follows: 
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1) an indicator of the line's status ; 

ii) a list of the line numbers of the line's immediate 
predecessors; 

iii) a list of the line numbers of the line's reductions; 

iv) the line's number; 

v) the line number assigned or that will be assigned 
to the first entry on table I which has not been 
checked against the line; 

and an optional element present only on the property lists of lines which are 
heads of subordinate trees begun in the course of a proof: 

vi) the line number of the table I entry which was used 
in the creation of the line. 

The use of these elements will become clearer in the succeeding chapters. 

The set of possible statuses for a proof tree line is as follows: 

i) VER - ver ified; 

ii) REL - unverified and rele vant; 

iii) REL1 - unverified, relevant, but deemed to be partially 
processed; 

iv) IRR - known to be irre levant; 

v) SIM - unverified, but simplified (or subdivided, in the 
case of a conjunction) and therefore to be skipped; 

vi) ST - on a subordinate tree and unverified; 

vii) VERST - on a subordinate tree and ver ified; 

viii) PNT - that line which is currently under closest exam¬ 
ination by ADEPT. (PNT is an acronym for "pointer".) 

In discussing the formal language and proof structure used in the ADEPT 
project, no mention has been made of rules of inference. This is because they 
are not treated formally, but in an ad hoc manner, as will be seen in the de¬ 
tailed description of ADEPT'S operation. 

( 2 ) 

ADEPT has been implemented on CTSS (Compatible Time Sharing System) at 
MIT's Project MAC. Therefore, communication with the program from a 
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teletypewriter console is possible. Stating a problem is done by typing in 
the three statements described previously, and conditions and definitions will 
be requested if not found in the tables. An answer of "NO” wi 1 1 be recorded 
as a null condition or definition so that terms may be undefined without re¬ 
petitive demands from the system for the definition. The ouLput consists of 
the final status of tabLes I and II. (Sometimes information on property lists 
is destroyed when table II lines are verified, so the final output may appear 
to have lines with erroneous property lists.) One observes from the output 
whether or not a theorem has been proved simply by noting whether or not the 
first entry of table II is of status VER. 
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CHAPTER III 

DESCRIPTION OF ADEPT — II 
STRUCTURE OF THE PROGRAM 

As was pointed out in the last chapter, ADEPT uses a "working backward" 
method of proof. This basic organization is outlined in somewhat more detail 
in Diagram I. Examination of that flow chart will reveal that the majority of 
the work of proving a theorem must take place during the steps labelled "ex¬ 
plore consequences...". Also it is obvious that much must be explained about 
the use of the innocent word "progress". 

Some of the occasions when entries are made to tables I and II are evident 
from Diagram I. Many others are found in the "explore consequences" phases of 
the program. The rest of the basic structure of ADEPT lies in the routines 
which add lines to one of these tables; i.e., add a property list to a state¬ 
ment and do any necessary processing which must accompany the placement of the 
new table entry. Of course, there are also matching subroutines, and a 
"tree-pruning" subroutine which is called whenever a table II entry is veri¬ 
fied. 

A few remarks regarding the tables of sufficient conditions and defini¬ 
tions are now in order. First of all, it is important not to confuse these 
tables with table I, which is the list of "known" information being used in 
any one proof. The totality of information included as definitions, etc., is 
never dealt with in a proof; only those instances of the entries of these 
tables which are put on tables I or II are processed in any detail. 

Instances of sufficient conditions are used in only one way. As shown 
in Diagram I, if the line currently of status PNT is a statement headed by a 
term, then if there is a sufficient condition for that term in the table, the 
appropriate instance of that condition will be added to table II as a reduction 
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of the line of status PNT. In the event that a sufficient condition is not 
available, the table of definitions will be consulted for a possible reduction. 
Instances of definitions can also be placed on table I, and this occurs at 
three steps of Diagram I which are labelled with the phrase "explore conse¬ 
quences", augmented by "of... In these cases, a call for definition in¬ 
stances is being made, either for definitions of terms appearing in a proof 
tree line of status PNT, terms in table I statements identifying constants in 
the line of status PNT (e.g., (SUBGROUP H G) identifies H), or terms appearing 
in the first hypothesis of the problem. 

The method of proof utilized by ADEPT makes it natural to have a separate 
table of sufficient conditions, supplying a source of material for possible 
reductions. Definitions are indispensible for many reasons, and it would be 
poor practice to force a check of both a sufficient condition table and a 
necessary condition table in order to obtain them, hence ADEPT has a table of 
definitions. As for necessary conditions £er se, they could be used for the 
same reasons that definitions are used in connection with adding statements to 

table_I, but a need for such a feature has not been observed with ADEPT. The 

inclusion of such a table might be a future extension. Until such time, nec¬ 
essary conditions for terms may be included in the definition table if the 
user is sure for some reason that no attempt will be made by the program to 
a ^d to table II an instance of the definition of that term. 

At present, provision is made for only one sufficient condition or defi¬ 
nition per term. Of course, this is hardly surprising in the case of defini¬ 
tions. However, even in the case of conditions, there is really no restriction 
because of the possibility of using the connective OR. This does lead to the 
equal consideration of all disjuncts, at least at present, and for harder 
problems requiring selection among multiple conditions, more sophisticated 
procedures will have to be implemented in order to overcome inefficiency. 

In Diagram I, "initialization and input of problem" results in the place¬ 
ment of the two hypotheses on table I and the conclusion on table II. The 
conclusion, or more precisely, all conjuncts of the conclusion which are not 
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themselves conjunctions, will be assigned status REL. The main loop is then 
entered, and one can think of a pointer being positioned on the first table II 
line of status REL. Note that this assignment of status PNT is made only to 
lines of status REL; thus, for instance, lines on subordinate trees can never 
undergo the special treatment afforded to such lines. 

If the current line of status PNT is an implication, an instance of it is 
created by generating a new symbol for each distinct variable (not constant) 
of the line, declaring these new symbols to be constants, and performing the 
indicated substitution (thus achieving a process of universal specification). 

The antecedent of the resulting implication is then added to table I and the 
consequent becomes a reduction (of status REL) of the original implication. 

(In general, reductions are tentatively assigned the status of their pre¬ 
decessor. See, however, Diagram IV.) This terminates consideration of the 
implication. 

If the line of status PNT is not an implication, ADEPT at this point 
calls its main subroutine, which performs a scan, deriving reductions of proof 
tree lines which can be inferred from the current set of entries on table I. 

This derivation can be done in various ways, with various allowed inferences, 
and will be discussed in detail shortly. This is what is meant by explore 
consequences". In some subsequent steps of Diagram I, it is done after adding 
appropriate definition instances, if any, to table I. 

Treatment of special cases by means of the subroutines SOLVEX and HOMOMF, 
mentioned near the bottom of Diagram I, will be discussed at the end of this 
chapter. As for the communication to the user regarding continuation of a 
proof, clearly this is just a frill made possible by the on-line terminals of 
the MAC time-shared system. This point on the flow chart is almost never 
reached in theorems which ADEPT is able to prove. 

Diagram I reveals to some extent the heuristic nature of ADEPT, at least 
on one level. Of course, proceeding back from the conclusion is itself a heu¬ 
ristic for proving theorems. In addition, existence of such entities as FEQUAL 
allows heuristic possibilities. But a central and most difficult goal of this 
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project was to introduce, presumably by use of heuristics, an "awareness" into 
the program. It seems obvious that a successful heuristic theorem-prover must 
perform as though it "understood" where it was in a proof. A student, of 
course, has such an ability, and to what degree it can be inserted in a pro¬ 
gram will be reflected in the order of development of a proof and in the ratio 
of necessary to irrelevant lines in the proofs produced. 

The means used to attempt to achieve this ability in ADEPT include the use 
of the status PNT, and the accompanying design and application of criteria for 
"progress", which determine when the pointer is to be advanced. Through use 
of status PNT, instances of definitions can be introduced as they become rele¬ 
vant. Of course, this feature can be of help only until all the instances 
which will be used in a proof have been produced. In addition, if the point 
in the flow chart where terms of the first hypothesis are considered is 
reached, experience shows that most of the instances will be obtained all at 
once. However, the first stages of a proof often proceed more efficiently 
because of this "selectivity" feature. Alternative methods for achieving 
similar results are discussed in Chapter VIII. As for detailed discussion of 
particular heuristics, this is the subject matter of the next chapter. 

The flow of a proof can now be illustrated, and the example will also 
serve to illuminate the content of Chapter II. The proof will be discussed 
in both ADEPT'S language and mathematical notation. Rather than supply appro¬ 
priate definitions to the tables, it will be assumed that the tables are empty 
(except for null definitions of *PROD and MEMBER, and a null sufficient con¬ 
dition for MEMBER) and that ADEPT asks the user for information at the appro¬ 
priate times. 

Theorem: If K is the kernel of a homomorphism f^ mapping 

G into H, then K is a submonoid of G. 

This is presented to ADEPT as follows: 

(AND (KERNEL K (FI G H)) (HOMOMORPHISM (FI G H))) 

NIL 

(SUBMONOID K G). 
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(In what now occurs, it will be assumed that an early version of ADEPT is being 
used, unaugmented by a number of heuristics yet to be described.) 

Table I now is as follows (since conjunctions and biconditionals are 
immediately subdivided by PUTONl): 

((1 1) KERNEL K (FI G H)) 

((22) HOMOMORPHISM (Fl G H)), 

K, Fl, G, and H are fixed as constants, and ((REL (HEAD) (NONE) 1 1) 

SUBMONOID K G) goes on table II. This line is changed from status REL to 
status PNT, and the preliminary scan is fruitless. ADEPT now desires a suffi¬ 
cient condition for submonoid , and the user responds ((SUBMONOID A B) IMPLIES 
(AND (MEMBER A1 A) (MEMBER A2 A)) (MEMBER (*PROD Al A2 B) A)); i.e., A is a 
submonoid of B if a^e A & a^t A mm > a^a^e A (i.e., A is closed under composi¬ 
tion). This results in the instance a^e K & a^e K =*0 K being added to 

table II as a reduction: ((REL (1) (NONE) 2 1) IMPLIES (AND (MEMBER Al K) 
(MEMBER A2 K)) (MEMBER (*PROD Al A2 G) K)). This causes the property list of 
line (1) (which had already been altered by the fruitless scan) to be changed 
to (REL (HEAD) (2 NONE) 1 3), as line (2) is assigned status PNT. Property 
lists will henceforth be ignored in this discussion, except that entries will 
be referred to by their line numbers. 

The implication is immediately split, and, assuming the symbols generated 
are K1 and K2, the statement (AND (MEMBER Kl K) (MEMBER K2 K) is sent to PUTONl 
for inclusion on table I, and line (3) of the proof tree becomes (MH1BER 
(*PROD Kl K2 G) K). In mathematical language, to prove the desired implica¬ 
tion, assume kj and k 2 are fixed, arbitrary members of K, and prove k^e K. 

Line (3) now has status PNT, a scan is of no help, and the line has no 
terms which are defined in the tables. The line's constants are Kl, K2, G, 
and K, the first two of which are identified by table I statements headed by 
a term with a null definition. G is not identified at all, but K leads to a 
request for the definition of kernel . The user supplies the statement 
a,e K <==> f (a ) <r- e in ADEPT'S language, and the appropriate instances of 
two implications appear on table I. The first of these is (IMPLIES (EQUAL 
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(Fl G H Al) (*IDENTITY H)) (MEMBER Al K)), and Che scan which takes place after 
the two entries are made to table I uses this to create the reduction (4): 

(EQUAL (Fl G H (*PROD Kl K2 G)) (*IDENTITY H)). In other words, to prove 
k-^e K > prove that maps k^k^ into the identity. The scan and the progress 
determination are programmed so that the scan now stops and line (4) takes on 
status PNT. From it, an instance of the definition of identity is obtained 
and put on table I. (A two-sided identity is assumed by using the definition 
a^e <— a^ & ea^ a^). This leads to no reductions, but an examination of 
line (4)'s constants produces the "discovery" that (Fl G H) is a homomorphism. 
(Some special-case programming had to be inserted to provide that this be done, 
due to the prohibition on function symbols standing alone.) Upon obtaining 
the definition of homomorphism, the scan is able to produce (5): (EQUAL 
(★PROD (Fl G H Kl) (Fl G H K2) H) (*IDENTITY H)). At this point the scan 
continues, using the other half of the definition of kernel along with other 
table I entries to derive facts about some of the objects in (5). Such facts 
are put on table _I; in this case they are (EQUAL (Fl G H Kl) (*IDENTITY H)) 
and (EQUAL (Fl G H K2) (★ ID ENTITY H)). Still continuing, the scan can now 
create from (5) the reductions (6): (EQUAL (*PROD (*IDENTITY H) (Fl G H K2) 

H) (*IDENTITY H)) and (7): (EQUAL (*PROD (Fl G H Kl) (*IDENTITY H) H) 
(★IDENTITY H)), and from (6), (8): (EQUAL (Fl G H K2) (★IDENTITY H)) using 
the definition of identity, and (9): (EQUAL (*PROD (*IDENTITY H) (★IDENTITY H) 
H) (*IDENTITY H)). From (7) is obtained (10): (EQUAL (Fl G H Kl) 

(★IDENTITY H)), and (9) is seen to be a reduction of (7) as well as of (6). 

From line (8) is obtained (11): (EQUAL (*IDENTITY H) (*IDENTITY H)) which is 
verified, as are all lines of the form (EQUAL Al Al). Diis causes a chain of 

verification back to line (1), completing the proof. Thus ADEPT, using defi¬ 

nitions of homomorphism, identity, and kernel, reduced f^(k^k^ ) = e H to 

VVW = e H and then t0 e H f l (k 2 ) = e H 5 f l (k l )e H = V f l (k 2 ) = V 

e = e , f (k ) = e , and finally to e = e , an obviously valid state- 

H H 1 l H H. H 

\t. The final proof tree has the form shown in Figure 2. 

The use of EQUAL rather than EQUAL2 in the definitions of kernel and 
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For instance, 


identity is crucial in avoiding serious proliferation of lines. 

EQUAL2 in the definition of kernel would allow f^(k^)e H = e^ to have such 
reductions as f,(k.)f. (k.) = e . and EQUAL2 in the definition of inverse would 
lead to even worse misfortunes. To be sure, the above proof is itself ineffi¬ 
cient, containing several irrelevant lines. However, the current version of 
ADEPT, whose development will be discussed in the next chapter, contains fea¬ 
tures which augment the basic structure shown in Diagram 1 and enable the pro¬ 
gram to avoid many needless actions. In this particular example, the proofs 
given by the old and latest versions deviate starting with the reductions of 
line (5), f^k^f^k^ = e R . In the improved procedure, substitutions of e^ 
for both f ^ (k^> and f j_(k 2 ) are n> ad e simultaneously and the subsequent reduc¬ 
tion, e e = e , is immediately simplified into the verifiable line e = e H> 

Thus the current proof contains seven nodes, and the proof tree is a straight 
line. Certainly for that particular problem, that is a very efficient, natu¬ 
rally developing proof. 

The scanning procedure is probably the most important subroutine in the 
program, and certainly it is the most complex. It is here that many heuristics 
can be added and tested. The main function of the scan, as already indicated, 
is to discover what new lines can be added to the proof tree as a result of 
implications on table I, and what substitution instances of lines already on 
the proof tree may be added to table II as a result of equalities on table I. 
This process is handled by a double loop, and can be done in either of two 
ways, both of which have been thoroughly explored with ADEPT. The first is to 
cycle through table I, and for each entry of one of the appropriate forms, to 
cycle through table II, generating all reductions of proof tree lines possible 
because of this particular table I statement. The other, of course, is to 
cycle through the proof tree, creating all reductions of a given line of table 
II due to all of the "known facts" on table I before proceeding to the next 
line of the proof. 

The latter design of the scan is superior from the point of view of having 
the program achieve an "awareness" of where it is in a proof. The attention 
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of the program is not removed from, but remains focussed first and foremost 
upon the proof tree and its development. One consequence of this is the ease 
in which a concept of "related" substitutions can be implemented, permitting 
such steps to be made simultaneously and thus allowing such steps as the jump 
from f, (k.)f. (k„) - e u to e u e„ = e„ which was seen to be desirable in the 
example just given. 

The current version of the scan is known as SCANW, and it will now be 
explained in detail. It cycles through the proof tree in its outer loop, and 
contains such refinements as the related substitution feature. To understand 
its operation, the concept of logical class must be defined. (The reader will 
remember that an indicator of the logical class is the second element of a 
table I entry's property list.) The logical class represents an attempt by 
ADEPT to group together related table I entries. For instance, all conjuncts 
of a conjunction sent to PUTON1 are put in the same class (except for the con¬ 
juncts of the two conjunctions comprising the original hypotheses), and the two 
implications resulting from a biconditional are in the same class. Also in the 
same logical class are instances of the same definition added to table I during 
a single "explore consequences of all..." execution. Finally, any lemnas de¬ 
rived by the program, by procedures about to be described, from a table I 
implication will be in the same class as the implication. For example, if a 
line on the proof tree mentions two sets H and J, both of which are subgroups 
of a group G, and if both instances of the definition of subgroup are placed on 
table I during the examination of the constants of this line, then all con¬ 
juncts of both instances will be in the same logical class; in addition, if 
due to table I entries a^e H and a 2 « H, the lemma a^e H is derived using the 
conjunct a^e H & a 2 * H ”> a^a 2 « H of the definition of H, then this lemma will 
also be in the same class. 

SCANW is described in Diagram II, which is augmented by Diagrams Ila - lie, 
due to the routine's complexity. When studying these flow charts, note that 
this version of the scan contains within it a definition of "progress"; i.e., 
when the pointer is to be moved. This is by no means the only way to treat the 
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evaluation of progress, and the next chapter will discuss this whole question 
in detail. 

The scan, as a routine, has two arguments. One, L, is used only in the 
processing of implications. The second, LL, indicates whether all of the proof 
tree starting with the line of status PNT is to be scanned immediately, or if 
the node of status PNT is to be scanned, and then a decision made whether to 
continue or return (Diagram He). (The latter option is generally exercised 
when SCANW is used to "explore consequences". Other uses of the scan will be 
seen later.) As shown in Diagram II, before the scan is actually made, newly 
proved lemmas are noted, in order that whatever steps they make possible may 
be carried out. The generation and use of lemmas is part of the processing 
of implications (Diagrams Ila and lib). The double loop is then entered, and 
implications and equalities are processed. Note that substitutions are not 
allowed in some proof tree lines which are scanned by implications, and that 
substitution instances are not actually created until the pass through table I 
is completed. This, of course, enables related substitutions to be performed 
together, and it is also a fact that some possible substitutions will not be 
performed due to actions taken while processing implications. 

When an implication is encountered, as shown in Diagram Ila, an attempt 
is made to generate a reduction of the proof tree line being scanned by means 
of detachment . This method, used in Newell, Simon, and Shaw's LT, is 

justified by modus ponens , and provides that a proof tree line P may be re¬ 
duced to a line Q if there is an entry q' ==> P 1 on table I, where P is an 
instance of P 1 (or of a conjunct of P') and Q is the corresponding instance o i 
Q 1 . If an addition can be made to the proof tree by this means, certain book 
keeping is done, noting that the particular proof tree line has a reduction 
created in this manner. (The special treatment given to occurrences of the 
use of detachment is part of the current heuristic determination of "pro¬ 
gress”.) If not, and if the proof tree line being scanned does not have a 
reduction created by detachment from some other table I implication of the 
same logical class, then an attempt to generate lemmas is made. A lemma is 
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simply an instance of the consequent of the implication, which can be added to 
table I as a "known" statement by virtue of the presence of the corresponding 
instance of the antecedent (or all its conjuncts) on table 1 or as a verified 
line on table II. Thus the generation of a lemma is a direct use of modus 
ponens . 

Quite often, a lemma which can be generated is irrelevant from the point 
of view of the statements to be proved on the proof tree. This suggested the 
inclusion of a relevancy check to be made before adding a lemma to table I. 
With this check, no such addition is made to table I unless the lemma would 
enable one or more reductions to be added to the proof tree. Once included, 
the existence of the check makes it natural to discover cases where a lemma 
would be useful but the required instance of the antecedent, is not known to 
hold. Then this Instance of the antecedent can be put on table II as the head 
of a subordinate tree, and if it is subsequently verified, the lemma will be 
generated by a future scanning pass if it still appears to be of use. In such 
an event the verified head of the subordinate tree is also put on table I. 

This is the present form of the section of SCANW which generates lemmas and 
which is detailed in Diagram lib. 

The restriction providing that lemmas are generated only when they can 
cause an addition to the proof tree is extremely important. It minimizes the 
use made of a "working forward" procedure and eliminates much unnecessary 
proliferation. For instance, suppose that G is known to be a group, and that 
a^ and a ^ are members of G. From the definition of group it will be known 
that e G « G and that G is closed under composition. Thus a^e G > a ^ e G ® G * 
e.a,« G, and six other inclusions could be derived immediately from the clo- 
sure statement, and each of these would lead to further "lemmas". With the 
present SCANW none of these derivations are made. (If one of these facts were 
desired; i.e., on table II and unverified, detachment would have handled the 
situation.) Suppose further that G is postulated to be abelian. Then none of 
the numerous instances of commutativity will be put on table I unless it en¬ 
ables a specific substitution to be made in a line of the proof tree. To 
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supplement the relevancy check, a heuristic, not indicated in Diagram II and 
which will be described in Chapter IV, has been found which limits the cre¬ 
ation of some subordinate trees to those cases where the heads are "likely" to 
be verifiable- 

Lines on subordinate trees are of status ST unless verified or simplified, 
in which case they are of status VERST or SIM respectively, though if a re¬ 
duction of a line of status ST is already on table II, its original status 
will not be changed to ST. Lines of status ST are given a more restricted 
treatment than those on the main proof tree, since inasmuch as they cannot 
take on status PNT they can only be processed during scans. A second major 
restriction is that such a line cannot itself give rise to a new subordinate 
tree. This restriction to a single level of subordinate proof means that 
ADEPT cannot prove theorems requiring the establishment of a complex chain of 
subtheorems. Only a few of the problems considered required this kind of 
proof; to do them with ADEPT it was necessary to state some lemmas explicitly 
in the hypotheses. 

One point is not clear on Diagram lib, and this is the case where the 
argument L is not only not null (thereby prohibiting the creation of subordi¬ 
nate trees) but an actual statement. This situation arises when SCANW is 
called by the subroutine SOLVEX while attempting to obtain a "solution" for 
a table II line of the form (3a^)[a^e A & Pa^]. In such a situation, L is 
set to be "a^e A". An example will be given when SOLVEX is discussed, later 
in this chapter. 

The discussion of lemmas will conclude with an illustration. In this 
example a subordinate tree is started not because of an observed possible 
substitution (the most common case), but because of an observed possible uti¬ 
lization of an implication which is itself the consequent of an implication. 

Theorem: If the center C of a group G contains all 
of G, then G is abelian . 

From the definition of abelian, ADEPT quickly concludes that the theorem 
will be proved if, assuming g^ and are members of G, the identity 
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&l ^2 = §2®1 Can esta bl- ds h ed * This line itself suggests no continuation, 
but an examination of the terms of the first hypothesis causes an instance of 
the definition of center to be placed on table I, namely [a^e G <==> 

[a 2 e G ==> a^a 2 = a^]] & [a^ C ==> G]. From this the scan finds that 
the implication [a 2 e G ==> g^a » a^^] could reduce the proof to showing 
g^e G, if it were known that g^e C. This is not known, so g^e C becomes the 
head of a subordinate tree. The scan continues and finds that due to hypoth¬ 
esis a reduction of this line is g^e G. This is an assumption made in the 
course of the proof, so the head of the subordinate tree is verified, and 
subsequently the desired implication appears on table 1 as a generated lemma. 
Continuing the scan, the proof is reduced to showing a 2 e G, an assumption, 
thus establishing the theorem. 

Diagrams lie through lie are mostly self-explanatory. Diagram lie de¬ 
picts the determination of substitutions, and shows clearly that the logical 
constant EQUAL suppresses substitutions in one direction. Note also that the 
associativity axiom, which can be stated using an equality headed by EQUAL2, 
can also be stated using a term of one argument, ASSOC (which is given a 
null definition), in order that the matching may be carried out by a more 
efficient, special-purpose subroutine. The actual creation of reductions 
which are substitution instances is shown in Diagram lid, and it should be 
observed that substitutions are only made in the left half, or first argument, 
of equalities on the proof tree. This particular heuristic, along with many 
others, will be discussed in Chapter IV. This concludes the exposition of the 
scanning subroutine. 

The subroutines which add entries to table I and II, PUT0N1 and PUT0N2, 
are outlined in Diagrams III and IV. Both routines add an appropriate prop¬ 
erty list to the statement being added to a table, though the details of this 
bookkeeping are not all given in the flow charts. Note that both routines 
subdivide conjunctions and biconditionals, though PUT0N2 also retains the 
original line and puts it on the proof tree in status SIM. Both diagrams 
contain references to the MODEL heuristic, to be introduced in the next 
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chapter. Bits is the heuristic 


restricting creation of some subordinate 


trees. 

PUT0N1 compiles lists of certain information in order that searches of 
table I in its entirety may be held to a minimum. It is also clear from 
Diagram III that when a statement headed by an existential quantifier is added 

to table I, an instance of it is immediately derived and added to table I _ 

a process corresponding to the classical operation of existential specifica¬ 
tion. (Existential generalization is not possible in ADEPT without the addi¬ 
tion of a special axiom as part of the hypotheses.) 

There is one step on Diagram IV which involves use of the subroutine 
SOLVEX and thus, like one step in SCANW, will be explained when SOLVEX is 
discussed. Then there is mention of "built-in" axioms, and these are a heu¬ 
ristic feature added as ADEPT was developed. As will be seen in Chapter IV, 

this feature has been very useful, but ADEPT could theoretically run with, no 
such axioms. 

Diagrams III and IV indicate the possible ways that a proof tree line may 
become verified, thus initiating appropriate tree-pruning by reference to the 
structure reflected in the lists of line numbers of predecessors and reduc¬ 
tions in the property list of each table II entry. The simplest situation 
occurs when both arguments of an equality or implication being put on the 
proof tree are identical. Such a line is verified. Another case is when a 
line about to be put on table II as a reduction of some line n, is found to be 
already on table II and of status VER or VERST; i.e., verified. This causes 
appropriate tree-pruning starting with verification of line n. Otherwise, 
verification occurs only if a line appears on both table I and table II. This 
may come about in either of two ways. The line may be on table II and being 
put on table I as a newly-discovered "known" statement, or a line being put on 
the proof tree may already be on table I. The latter situation is extremely 
common, being the result of successfully reducing a statement to be proved to 
a statement already established. 

For the purpose of checking whether or not a line is on both tables, the 
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different logical constants used to express equalities may be considered 
identical. While EQUAL and FEQUAL are used to achieve certain special process¬ 
ing of statements in which they appear, clearly their presence should not pre¬ 
vent verification of a table II equality which is on table I though expressed 
with a different logical constant. The heuristic use of the extra logical 
constants does not alter the fact that they all represent equality. 

Diagram I contains a call to a subroutine called SOLVEX in order to pro¬ 
cess lines of the form (3a^)Pa^. This subroutine's effects have also been 
noticed in the flow charts for SCANW and PUT0N2. It attempts to "solve" a 
line of the indicated form, for a value of a^. As indicated in Chapter II, it 
is organized in terms of special cases. The current version will only handle 
Pa^ of the form P 1 = 2 P" or P 1 P" where either P' or P" but not both con¬ 
tains a^, or Pa^ of the form a^e A & Qa^ (or Qa^ & a^e A) where Qa^ is one of 
the admissible Pa^'s just described. Such a line is put into the form Q'a^ = 

Q", and the conjunct a^e A, if any, is separated. The reordered line is 
checked to see if the equality can be solved for a^ by "multiplying" both 
sides by proper inverses. For instance, = a^ can be solved to obtain 

= a 2 -1 a^(a 3 "^) _1 . (Note that this subroutine assumes that all inverses are 
defined, and therefore cannot be used for theorems about semigroups. A check 
to determine the routine's applicability, though not included in the program 
at present, could easily be made using the list of sets known to be groups 
that is created by PUTONl.) If a solution is obtained the line either will 
be verified, or the indicated substitution instance of a^e A added to the 
proof tree as a reduction of the line under consideration, whichever is appro¬ 
priate. If no solution is found, the line is checked to see if it is of the 
form Q'a^ = Q'a 2 , in which case again it is either verified, or the reduction 
a 2 e A added to the proof tree. If this also fails, a scan is done, with the 
arguments LL and L of SCANW "on" (i.e., not null), and if a conjunct a^e A was 
detached from the line, L is set to precisely that conjunct. Whenever a new 
line of the form (Sa^jp'a^ is put on the proof tree in the course of this 
scan, it is checked to see if it can be solved in one of the two ways mentioned. 
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This is the call to SLVX indicated in Diagram IV. If so, the scan ends just 
as if the proof were complete, and control returns to SOLVEX, which proceeds 
essentially as though the original line had been solved for a^. All the lines 
created of the form (Ha^jP'a^ during the scan are removed from further con¬ 
sideration; in fact, they are printed out at that time and completely removed 
from table II. If the scan ends without creating a line which can be solved, 
control returns to SOLVEX and then to the main routine which acts accordingly, 
as shown in Diagram I. 

It remains to discuss the role of SCNX, mentioned in Diagram lib. If 
during a scan initiated by SOLVEX, a substitution could be made in a line 
(3a^)P'a^ (i.e., in P'a^) if only a^e A, and L is "a^e A", control is passed 
by SCANW to SCNX, which allows the substitution and resets L. This is best 
described by an example. Suppose that the statement a^e A ==> (3 a^) 

[a^e B & a^ = a^C] is on table I (one part of the definition of a factor group 
A = B/C), and that the line of table II being considered by SOLVEX is (3 a ^) 
[a^e A & f^(a^) = a^], where a^ is being used as a constant. This will be 
"reordered" as ( 3 a^) (f^ (a j) = a^] and L set to "a^e A". (Clearly the scan 
will occur, as f^(a^) = cannot be solved directly.) The scan will observe 
that the substitution of a 2 C (or more precisely, an instance of a^C obtained 
after an application of existential specification) for a^ could take place if 
a^e A were established. SCNX receives control and adds the line (B^) 
[f^(a 2 C) = a^J to the proof tree, sets L to " a 2 e B", and saves the information 
that this substitution has been made. This suffices to illustrate the opera¬ 
tion of SCNX, but it will be profitable to continue this example further. 
Perhaps f^ is a map from B/C to D/E defined by f^(a^C) = f 2 (a^)E, for some 
map f 2 taking B onto D. So, if a^e D/E, the lines ( 3 a 2 ) [f^(a 2 C) = a /( E] , 

(1 a 2 ) [f 2 (a 2 )E = a^E] , and (3 a 2 ) [f 2 (a 2 )E = f 2 ( a 5 )E] might be generated. 

The last of these can be solved, giving a 2 = a,, (for this possibly non-unique 
a^ such that f 2 (a^) = a^, where a^ = a^E), and SCANW will now return control 
to SOLVEX, which will make use of the information stored by SCNX that a 2 C was 
substituted for a^, and put on the proof tree as a reduction of the original 
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line (3a 1 )[a 1 e A & f^) = a 3 ] the line a 5 G e A. This "change of variables" 
procedure, which may be carried to any depth, is clearly very useful. 

In Diagram I there is also a reference to a subroutine HOMOMF, which deals 
with lines headed by FEQUAL. (The name HOMOMF was chosen because the routine 
is used in establishing homomorphisms.) HOMOMF 1 s task is to attempt to verify 
the equality headed by FEQUAL by successive evaluation of the two arguments 
of the logical constant; i.e., the two sides of the equality. It evaluates 
the first argument, obtaining, if successful, a list of one or more evalua¬ 
tions, plus the original argument. It then starts to evaluate the second 
argument, stopping with success if an evaluation of the second argument is 
on the list of evaluations of the first. Evaluation is done by a call to 
SCANW, with table II augmented by a new "tree" headed by the argument to be 
evaluated. The use of FEQUAL and HOMOMF has proved to increase efficiency in 
the establishment of equalities similar to the one involved in demonstrating 
that a map is homomorphic. As an illustration, suppose that table I contains 
the hypothesis f x (a L ) = e; i.e., f L maps everything into the identity. If a 
sufficient condition for a map's being a homomorphism, stated using FEQUAL, 
is entered into ADEPT'S tables, then in the course of proving fj homomorphic 
HOMOMF will be asked to establish the equality f^a^) » f f^a^f^a^. The 
proof would proceed: f 3 (a 2 a 3 ) = e (evaluation of the first argument); 
f 1 (a 2 )f 1 (a 3 ) = ee = e (q.e.d.). 

It is possible to write a supervisor to use the full power of ADEPT to 
solve a theorem with many sub-theorems. Such a program is ISOLVE, which uses 
ADEPT to establish isomorphisms between groups. A routine called GENFCN was 
written, which generates a canonical relation between two sets, given the 
hypotheses concerning the two sets (GENFCN also uses SCANW), and ISOLVE makes 
four calls to ADEPT to prove that the relation is (in this order) well-defined, 
homomorphic, epimorphic, and monomorphic. (Sometimes the relation generated by 
GENFCN is well-defined by construction, as in the case when the domain of the 
relation is simply a group G.) This program has been used to establish a 
number of isomorphisms, and these are the most impressive theorems proved by 
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the computer in the course of this project. (Incidentally, GBNFCN works for 
sets but ISOLVE assumes that the sets are groups.) 

One fact about ISOLVE is of special interest. In order to prove a 
relation f^ G —> H is well-defined, the problem a^^ *a 2 * e G -*> 
f 1 (a 1 )‘ 1 f 1 (a 2 ) = e R is given to ADEPT. In general, to prove that is 
one-to-one requires establishment of the converse implication. However, since 
will first be shown to be a homomorphism (if ^ isn't proved to be homo¬ 
morphic, or if any one of the four proofs is not successfully completed, ISOLVE 
goes no further), one may take advantage of the theorem which states that for 
a homomorphism f^ f x is one-to-one if and only if its kernel reduces to the 
identity. That is, ISOLVE is justified in presenting ADEPT with the problem 
f (a ) - e «e» a. » e , and in fact, this is exactly how it has been pro- 
grammed to prove f monomorphic, for this latter implication usually can be 
proved more easily. Equivalently, ADEPT could be programmed to include the 
heuristic — "when asked to prove that a function ^ is one-to-one, make use 
of (the above theorem) whenever it is known that f^ is a homomorphism". 
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CHAPTER IV 


SPECIAL-PURPOSE HEURISTICS 
THE DYNAMIC PROCESS OF USING AND CREATING ADEPT 

The heuristic philosophy adopted for the ADEPT project has already been 
expounded, and certain of the program's heuristic features have become appar¬ 
ent in the previous chapters. The original version of the program contained 
relatively few heuristics, inasmuch as the purpose of the development of ADEPT 
was to discover the difficulties which arise in the attempt to prove theorems 
of group theory by computer, and then to devise means by which to overcome 
these obstacles. Thus it is pertinent to discuss not only the current version 
of the program, but also the development of this version, and some of the 
previous states of the program. By this, of course, is not meant a revelation 
of such data as the state of the program when the ability (SOLVEX) to handle 
problems involving certain statements headed by an existential quantifier was 
added, but rather a discussion of heuristics and features which were developed 
to cope with previous lack of capability or efficiency on the part of ADEPT. 
Thus this chapter supplements the previous one in giving further description 
of the program, concentrating on those features whose addition was prompted by 
information obtained while experimenting with early versions of ADEPT. 

One such addition has been described in Chapter III, since it is pres¬ 
ently an important part of the operation of SCANW. This is the simultaneous 
performance of related substitutions, a heuristic which eliminates many previ¬ 
ous instances of inefficiency in favor of very natural steps combining oper¬ 
ations . 

Another good example, and a simple one, is reflected in Diagram I, and 
happens to represent the first difficulty which arose in this project. Ini¬ 
tially, the program only put instances of definitions on table I as a result 
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of processing the line of status PNT. But, as is shown in Diagram I, when 
ADEPT has explored the consequences of all such instances without success, it 
now considers all terms in the first hypothesis of the problem and obtains the 
appropriate definition instances for them. Such action was not necessary in 
the proof that the kernel of a homomorphism is a submonoid, for instance, but 
it is required in order to prove that the center of a group is abelian. In 
this example, line (1) of the proof tree, (ABELIAN C G) is reduced to the 
implication which is the indicated instance of the definition of abelian, which 
is promptly split, thus obtaining line (3), (EQUAL2 (*PROD Cl C2 G) 

(*PROD C2 Cl G)) which becomes the first line of status PNT to be searched 
for terms and constants. But no explicit mention of C appears in this line, 
and since the proof requires the addition of an instance of the definition of 
center to table I, the examination of the terms of the first hypothesis takes 
place, and the proof is subsequently completed. 

Note that the implementation of this heuristic assumes the use of 
non-asterisked terms to some extent. For instance, if (CENTER C G) had not 
been included in the hypotheses of the above example, but instead the conclu¬ 
sion had been stated (ABELIAN (*CENTER G) G), the heuristic as programmed 
would have failed. To remedy this, and to implement the heuristic in a more 
general form which will have the same effect independent of notation, all 
as terisked terms of the conclusion should be examined along with the terms of 
the first hypothesis. 

The difficulties which suggested this heuristic reflect a second need for 
augmenting the "working backward" approach with a certain amount of "working 
forward". (The generation of lemmas, of course, is the first and primary 
example.) In other words, a procedure which only reduces desired conclusions 
to established statements is not adequate for handling theorems of group 
theory. Some recourse must be made to the derivation of statements from the 
hypotheses, axioms, etc. Table II, the proof tree, cannot develop suffi¬ 
ciently without such derivations, which cause expansion of table I. However, 
such expansion must be controlled. Lemmas are generated only if they will be 
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of immediate use. In the same spirit, it is important to note that a check of 
terms in the hypotheses is not done until the usual procedures prove inade¬ 
quate for a given problem. 

The whole question of when to obtain what information from the condition 
and definition tables is a problem of information retrieval. In harder theo¬ 
rems requiring a larger base of information, this problem could become quite 
critical. Some comments on this, and some alternative methods of placing and 
using definition instances on table I, will be given in Chapter VIII. 

Another instance of a change which was made in the course of the develop¬ 
ment of ADEPT was also seen in the flow diagrams of SCANW, in particular, in 
Diagram lid. This is the heuristic which provides that reductions obtained by 
substitutions in an equality on table II are created by substituting only in 
the first argument of the equality. In other words, if a line on the proof 
tree has the form P » Q, substitutions are made only in P. The rationale 
behind this restriction is illustrated by an example. If it is known explic¬ 
itly that P ■ P t , Pj - P 2 , .... P nl “ p n > p n * On* •••» * Q (where none of 

the expressions are identical, and no other equivalences are as yet explicit¬ 
ly "known"; i.e., on table I), a proof of P « Q with the heuristic under dis¬ 
cussion takes 2n steps. If substitutions are permitted in Q also, and no 
other heuristic is introduced to order substitutions, a proof of P « Q might 


proceed as follows: 


p - q —> p, > p 2 - q 
p -> p, -> 


-> 


2 

a process which will require on the order of n steps. 

In return for the potential reduction of the number of steps, or at least 
for release from the need to discover more sophisticated heuristics, there 
would be, in theory, no cost'if all equalities were treated symmetrically. 

But such is not the case in ADEPT when use is made of EQUAL. However, even if 
all equalities were headed by EQUAL2, there is a price to be paid in practice. 
Consider the proof that the map which takes every element of a group G into 
the identity is a homomorphism. This proof was discussed in the previous 
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chapter as an example of the use of FEQUAL. However, suppose the equality 
expressing the property of being homomorphic is stated using EQUAL2. Then the 
heuristic of substituting only in the left-hand side requires the proof to 
proceed: f^g^) - e - ee - f^g^f^g^. But this series of steps, using 
only the hypothesis f^a^ “ 2 e and the definition of identity, requires 
planning heuristics of a comparatively involved nature. For instance, to 
reduce the line e - f 1 (g 1 )f 1 (g 2 > to the line ee - f 1 (g 1 )f 1 (g 2 > requires ex¬ 
pansion of e to ee, which might be accomplished upon analysis of the 
right-hand side of the equality. Even more difficult to program would be the 
efficient execution of the substitutions needed to establish the final result. 
(None of the expansions would normally be allowed, since the hypothesis de¬ 
fining f would most naturally be stated using EQUAL, not BQUAL2, as would the 
definition of identity .) Admittedly, this problem is primarily an example of 
the worth of the use of FEQUAL, but it does show the kind of difficulty which 
can arise due to the restriction on substitutions in equalities on the proof 
tree. 

There is one heuristic which was included in the original program, and 
which has been retained because of its success. This particular feature is a 
restriction included in ADEPT'S matching subroutine, and thus was not encoun¬ 
tered in Chapter III. Incidentally, the matching process used is basically 
recursive and no attempt has been made to optimize it, yet it suffices quite 
well. The restriction concerns the case where a single variable is being 
matched against a line or part of a line on the proof tree. In other words, 
all occurrences of objects, of the same type as the variable, appearing, in 
some table II line are desired. In this event, the variable is matched only 
with simple variables or constants, not with compound objects. This case is 
not to be confused with the matching of variables within a more complex ex¬ 
pression being matched against a line of the proof tree; such variables will 
be matched with any object of the appropriate type. Thus, if all reductions 

made possible by a table I entry (EQUAL A1 (*INVERSE Al G)) are desired from 

■ 1 -1 - 

the line (MEMBER (*PROD A2 A3 G) H), substitutions of a 2 for a 2 and a 3 to 
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will be made, but the substitution of (a^a^) for a 2 a % w iH- not be con¬ 
sidered. However, the A1 in an expression such as (*PROD A1 A2 G) may be 
matched with any member object. 

This heuristic has the obvious effect of controlling the expansion of a 
proof tree in any problem in which it is applicable. In only one theorem pre 
sented to ADEPT did it cause any unwanted effects, so it is certainly to be 
considered advantageous. (The one difficulty necessitated the explicit defi¬ 
nition of the inverse image of a point, as opposed to the use of the general 
definition of the inverse image of a set in conjunction with the definition 
of a unitset or singleton; i.e., a set with one member.) 

Perhaps the most important and revealing addition to the program is one 
which occurred in stages. As alluded to in the previous chapter, the first 
implementation of ADEPT had no identities or definitions "built into" the 
program. Thus simplification of a product involving the identity element 
could not be accomplished until the term *IDENTITY was encountered and the 
corresponding instance of its definition put on table I. Also, certain facts, 
such as "f^e) = e when f^ is a homomorphism", had to be included with the 
hypotheses for some problems, for ADEPT is not able to set up the "construc¬ 
tions" necessary to prove these facts. Clearly, this forced the program to be 
quite inefficient in proving theorems. Such a simple-minded procedure does, 
however, emulate the student who is a complete beginner at group theory. 

Just as a student must assimilate simple identities involving identities, 
inverses, homomorphisms, etc., it does not take long before the problems in 
group theory demand facility with these facts if efficient proofs are to be 
found. It was clear that ADEPT could not become proficient and handle harder 
problems unless these identities could be applied more sensibly. Accordingly 
a routine was introduced (into PUT0N2, see Diagram IV) to check each line being 
put on the proof tree to see if certain identities could be applied. As the 
number of theorems presented to ADEPT increased, it became clear which iden¬ 
tities should be dealt with in this way, and the routine under discussion 
expanded gradually. Besides the advantage of a more natural development of 
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the proof tree, this routine offered an opportunity to make this use of 

matching procedures more efficient. This is so because the identities to be 

matched are not arbitrary, but fixed, and a special-purpose matching routine 

can be easily implemented and used instead of the general matching routine 

used by SCANW. In ADEPT'S most recent version, matching is greatly speeded 

up by a key-word check between the identity and the line of the proof tree. 

The current set of identities handled in this way is divided into two 

classes, according to the action taken if a match is found. The first set 

causes a true simplification; i.e., a new line is created as a reduction of 

the old line, and the status of the original line is changed to SIM. This 

-1 -1 . 

set contains the facts ee ■<- e, ea^ a^, a^e <— a^, a^a^ e > a y a x e > 

fll , and e” 1 e. There is also a subroutine by which products 

of arbitrary association are checked according to these identities. Thus the 

product (a 2 a 3 )a 3 _1 will be simplified to a 2 even though the binary nature of 

-1 


the operation does not allow direct application of the identity a^a^ 

(This subroutine obviously relies upon the assumption of associativity.) 

The second set of identities merely causes new lines to be put on the 

proof tree, without declaring the original line unworthy of further consider- 

,-l -1 -1. 

ation. In this set presently are the following facts: ( a x a 2 ' 2 a 2 a l ’ 
if f^ is homomorphic, f^Ce) <— e, f^ (a^ ) = 2 f^( a x) > ^l^ a i a 2^ = 2 

f l^ a l^ f l^ a 2^’ if A/ ^ B iS 3 factor S rou P> a i 1r ~2 ^ a l B ^ ’ ( a l a 2^ B = 2 

(a^B) (a 2 B). Application of these identities is expediated by the lists of 
factor groups and homomorphic maps created by PUTONl. 

Xt is revealing to note the analogy here between what is essentially a 
transition from interpretive to compiled application of these identities with 

the corresponding development in the methods used by a student in making such 

( 12 ) 

steps. 

The problem of deciding when a line on the proof tree has been success¬ 
fully processed, even though the theorem may be not yet proved, is a very 
difficult one. For a general theorem-prover, this problem is closely related 
to the question of deciding which branch of the tree it would be most 
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profitable to investigate first. In ADEPT, the problem is sharpened; from a 
given line on the proof tree reductions should be generated until and only 
until the one which is "correct" is generated. This is one manifestation of 
the goal of having the program appear as though it understands where it is in 
the course of a proof. It turns out that there are heuristics which are fair¬ 
ly successful in this regard for a wide range of theorems. Unfortunately, 
their effectiveness decreases rapidly when irrelevant hypotheses are intro¬ 
duced. Without any heuristics, even problems with a minimal set of hypotheses 
have inefficient proofs, but while the schemes about to be discussed usually 
remedy that situation, they are of limited worth with regard to overspecified 
problems. 

The "progress" heuristics used by ADEPT are few, and range from trivial 
to subtle and controversial. In the first category are rules such as consid¬ 
ering a line on the proof tree of the form P «*i> Q processed when an instance 
of the antecedent P is put on table I and the corresponding instance of Q 
becomes the reduction of the implication. In fact no other processing is 
allowed on such a line except for verification if the same line P »*<> Q ap¬ 
pears on table I. Similarly, a line headed by EXISTS or FEQUAL is processed 
only by the special-purpose subroutines SOLVEX and HOMOMF respectively. 

The major difficulty occurs with lines of a general nature, e.g., equal¬ 
ities or lines of the form a^s A. If such a line is not verified, it never 
can be declared to be sufficiently processed unless some heuristic is employed. 
Two have been tried with ADEPT. Both provide for "progress" only after a line 
of the proof tree has had a reduction introduced by detachment. But not all 
such reductions cause "progress" to be declared. A detailed description of 
the heuristics will make this clearer. Suppose that line 11 of the proof tree 
is under current consideration; i.e., of status PNT. Heuristic A provides 
that when the scan is called, all entries of table II from line ri onward shall 
be processed, and as soon as the line of status PNT gives rise to a reduction 
by detachment it shall be declared to need no further processing if^ and only 
if the line of status PNT is the lone reduction of its immediate predecessor 
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(not counting co-conjuncts if the predecessor is a conjunction). If this is 
the case, the next table II line of status REL immediately takes on status PNT 
and the scan continues. Any line not of status PNT which obtains a reduction 
using detachment is not given any special treatment. Heuristic' B provides 
that first only line n shall be scanned, and after it is completely processed 
by all table I entries, the scan shall stop if line n has given rise to one or 
more reductions via detachment. What is more, after an instance of detachment 
occurs due to a table I implication, no further table I equalities in the same 
logical class as the implication will be used to create substitution instances 
of line n. If detachment occurs, once the scan of line n is completed control 
will be returned to the main routine, which will move the pointer down; i.e., 
"progress" will be declared. If no detachment occurs, the scan will continue 
through all the rest of table II, and any line of status REL giving rise to a 
reduction using detachment will be put in status RELl, so that it cannot take 
on status PNT at any later time. The restriction on creation of reductions by 
substitution after instances of detachment also remains in force as the rest 
of table II is processed. 

Heuristic A is clearly syntactic, being based on the structure of the 
proof tree preceding line n. It proceeds on the assumption that if the proof 
tree has been developing in a straight-line fashion, it is safe to proceed as 
though it were inevitable that the proof would continue in this fashion. Con¬ 
versely, if the proof is full of alternative branches, the heuristic says that 
caution must be observed. It is clear that irrelevant hypotheses render heu¬ 
ristic A ineffective, for extra table I entries cause excess branching in the 
proof tree, unnecessary though it may be, and thus heuristic A will not cause 
"progress" to be declared as often as it should. 

Heuristic B is the one currently in use in ADEPT, as was seen in Diagram 
II. It also gives special consideration to occurrences of detachment, but it 
does not refer to the shape of the tree. Unlike heuristic A, it takes notice 
of applications of detachment to lines other than the one of status PNT. Since 
it prevents some lines from ever taking on status PNT, unnecessary uses of 
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detachment can be harmful. Thus heuristic B is also adversely influenced by 
unnecessary hypotheses, but only if they contain implications. This slightly 
greater degree of insensitivity is of some advantage, and another factor in 
heuristic B's favor is the greater amount of processing allowed on a line of 
status PNT, so that it can continue to give rise to reductions even though one 
reduction of it has been created using detachment. To allow total processing 
to continue would be too inefficient, however, so the restriction involving 
logical classes has been introduced. An example will clarify the reasoning 
behind heuristic B, and the theorems which will be discussed in the following 
chapters will serve to indicate shortcomings of this strategy. In particular, 
the third part of the first example of Chapter VI shows the one situation 
encountered to date where the logical class restriction fails completely. 

Consider the theorem stating that the image I of a group G under a 
homomorphism f^ is a subgroup of the range of f^. In the course of proving 
this theorem, ADEPT must show closure of the image under composition; in par¬ 
ticular, having fixed b^ and b^ as members of I, it must be shown that b^b 2 
is a member of I. The relevant instance of the definition of image is 
a^e x <==s> (3a 2 )[a 2 e G & f ^ (a 2 ) = a^], which becomes two implications on 
table I in the same logical class. One of these causes an occurrence of de¬ 
tachment, reducing b^e I to Oa 2 )[a 2 e G & f^ (a 2 ) ■* b^]. This happens to 
be the "correct" step, leading to a proof of minimal length, and is but one 
instance of advantageous applications of detachment which have led to the 
affirmation of a connection between detachment and "progress", as shown in 
the two progress heuristics. Now, the converse implication on table I leads 
to a substitution instance of b^b 2 e I that could be put on the proof tree, 
namely f^Cg^f^Cg^ e I, where and g 2 are members of G which are mapped by 

f into b^ and b 2 respectively. This branch would lead to a parallel proof, 
doubling ADEPT's efforts, and it is this kind of proliferation which the 
logical class restriction was introduced to prevent. Indeed, the vast major¬ 
ity of the time this particular feature of heuristic B achieves exactly the 
proper effect. (Note that the success of this procedure depends upon the 
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detachment's being made before the substitutions are determined. This will be 
insured if the user puts all definitions which specify sets by their members 
in the form a e A <==> Pa^ for PUTONl splits a biconditional P <==> Q into 
q ==> P and P ==> Q, in that order.) 

One more heuristic remains to be discussed in this chapter. It is a 
non-trivial one, though easy to implement, and it is present because of the 
nature of many definitions, namely, that they are of the form a^ A <==> Pa^ 
where Pa contains an equality of the form &l = Q, for some object Q. When an 
instance of such a definition is on table I, it is observed many times during 
a call to SCANW that a substitution of Q (or more precisely, some instance of 
Q) could be made for some variable or constant, say & 2 , if only a 2 e A were 
established. Consequently a great many subordinate trees are started on table 
II, headed by a node of this form. Many of these nodes represent highly un¬ 
likely possibilities, and some are not just impossible to prove, but are 
actually incorrect. To remedy this, a lattice or model of the sets involved 
can now be built by ADEPT using information stored with the definitions of 
various kinds of sets. This lattice is used only to cull out unlikely possi¬ 
bilities about to be put on table II in status ST. It is not used for the 
purpose of verifying a line on the proof tree, in order that all proofs may be 
developed by the operations on the statements on tables I and II. An example 
will show what this heuristic does and does not do. With the definition of a 
factor group A = B/C is stored the following information: A, BSC. This 
indicates that C is a subset of B, and that B and A have no members in common. 
(The definition of a map f^ A —> B is accompanied by the information A, B. 
This indicates that there is no reason to assume that the sets A and B are 
not disjoint.) Similarly for a sub-factor group D = E/G of a factor group 
I/G, the definition is augmented by the information D, I 3 E PG. So if the 
hypotheses of a problem provide that A = G/H, B = G/K, C = H/K, D - B/C, and 
ICZG, ADEPT can construct the model D, A, BSC, GSHSK. This lattice 

I 

will be used in conjunction with other hypotheses about variables and 
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constants. For instance, suppose a^ is known to be in H. Then the state¬ 
ment a^s B will be ruled out by a simple reference to the lattice, a^s K will 
be discarded as unlikely, for a general member of H dan seldom be shown to be 
a member of a particular subset of H. a,^« G will be allowed, but not automat¬ 
ically verified, a^ I will be allowed, since it is quite possible, and such 
a statement is often provable in group-theoretic problems (as opposed to 
*!* K). 

This heuristic only examines lines of the form Sj« A where a^ is a simple 

variable or constant, as opposed to a compound object such as a product. This 

is so mainly because of the difficulty of formulating and applying rules for 
accepting or rejecting the more complex statements. For instance, suppose 
that a^ and a^ are both members of G and H is a subset of G. Sven though it 
is reasonable to exclude statements such as a^c H with almost any specification 
of H, as long as it is a proper subgroup of G, it is not always wise to exclude 

the statement a^C H. To be sure, often this is also a fruitless head for a 

subordinate tree, but H might be a set such as the coset i^Ji where J is some 
other subset of G. Another restriction on the heuristic's applicability is 
that it is not used to examine proposed lines for the main proof tree. If it 
were, it would be impossible to use ADEPT to prove such facts as "the center C 
of an abelian group G is the whole group." In this problem, it is known from 
the definition of center that C is a subset of G, and it must be shown that 
any member a^ of G is a member of C. Clearly the heuristic must not be allowed 
to prevent the necessary conclusion from being placed on the proof tree! For¬ 
tunately, the heuristic serves its purpose quite adequately, though it is re¬ 
stricted to apply only to lines of the form a^s A about to be put on subordi¬ 
nate trees, where a^ is a simple variable or constant. 

This feature, known as the MODEL heuristic, was implemented so that it 
can be used or not as desired. Tests with isomorphism problems have shown a 
steady decrease of about 1/3 in the length of a proof, with all lines discarded 
being indeed irrelevant. The decrease in processing time was nearly the same, 
being only slightly less, due to the nature of the information to be handled 
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in the lattice, which allows very fast processing of this heuristic. Clearly 
because of the nature of many definitions in group theory and modern algebra 
in general, this is an important special-purpose feature. 

Though the MODEL heuristic is an important addition to ADEPT because the 
single operation it performs is so often desirable, it is not a profound exam¬ 
ple of the use of a semantic model. Such models are not uncommon in 
theorem-proving. A simple example would be the augmentation of a proposition¬ 
al calculus theorem-prover with a subroutine which tested a proposed line by 
evaluating it using one of the possible assignments of truth-values to its 
variables. The best-known example of the use of a semantic model is the 
"diagram" in Gelernter's geometry-theorem proving machine.This program 
and its use of a model is discussed in Appendix I. In general, heuristic pro¬ 
grams for proving theorems often can be improved by inclusion of some model 
of the intended interpretation of its domain, to act as a filter or guide for 
using the more syntactic procedures in the algorithm. 

Other insights have been gained during the course of this project. Be¬ 
cause they did not lead to the addition of important heuristics, and because 
they are best discussed in the light of particular examples, they are not 
considered here, but postponed until the next chapter, which discusses select¬ 
ed theorems successfully proved by ADEPT. 
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CHAPTER V 


DISCUSSION OF SELECTED PROBLEMS 


ADEPT has been used successfully to prove nearly 100 theorems. To be 
sure, some of these have been very simple problems, but many have been of a 
relatively involved nature. 17 have been proofs of isomorphisms by ISOLVE, 
each of which involves at least 3 if not 4 separate sub-theorems (depending on 
whether or not the relation requires explicit proof that it is well-defined). 
The greatest number of nodes in a proof tree was 73 (see the third problem dis¬ 
cussed in this chapter), and no single proof by ADEPT took more than minutes 
of computer time, though the composite isomorphism theorems took up to 9 min¬ 
utes. Among the more complicated theorems not described in this chapter were 
proofs that (a^A) ^ is the same set as Aa^ \ and that for a homomorphism f^, 
{f^ ^(a^)} is the same set as a^K, where K is the kernel of f^. Other lengthy 
proofs completed by ADEPT are parts of theorems which cannot be done in en¬ 
tirety by the present program, and will be discussed when inadequacies of 
ADEPT are considered in a later chapter. Not counting the isomorphism theo¬ 
rems, only 4 proofs took over 2 minutes of computer time; 4 contained 30 or 
more nodes in the proof tree. (In the intersection of these two classes of 
difficult theorems were 3 problems.) 

The particular problems discussed in this chapter are presented either 
because they serve as excellent illustrations of various features of ADEPT, or 
because the problems themselves are of interest, particularly those into which 
a special insight has been obtained through their use as examples for ADEPT. 
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Problem V-A 


One group of problems presented to ADEPT is concerned with intersections 
of subgroups: 

1) The intersec tion of two subgroups of a group is itself 
a subgroup ■ 

2) The intersection of two normal subgroups is itself norma 1 . 

3) The intersection of a norma 1 subgroup and an arbitrary 
subgroup is normal in the arbitrary subgroup . 

Consider the last of these from the point of view of stating it formally. 
There are many possibilities. One is to say in effect — "let I be the inter¬ 
section of H and J, where H is normal in G and J is a subgroup of G; prove 
that I is normal in J." This statement may appear to omit some of the con¬ 
tent of 3) above (e.g., G is not stated to be a group, and H is not stated to 
be a subgroup), and indeed it does if one must state explicitly all supporting 
assumptions. But the facts that H is a subgroup of G and that G is a group 
are not used explicitly in the proof of this theorem. However, the definition 
of normality implicitly assumes that the set in question is a subset of a 
group, because it only makes sense if inverses are defined. (A normal set 
itself may not necessarily be a sub group , according to this interpretation.) 

These remarks about assumptions have been made just because the proof of 
3) can be carried out using the above statement provided that it is assumed 
that all definitions make sense. This is the way ADEPT has proved this theo¬ 
rem. The proof is now exhibited, following which a discussion of the conse¬ 
quences of explicitly stating the additional justifying hypotheses is pre¬ 
sented . 

The hypotheses are put on table I: i) I is the intersection of H and J, 
ii) H is normal in G, and iii) J is a subgroup of G. The first line of table 
II, the proof tree, is (1) I is normal in J. From the definition of normality 
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is obtained (2) V J & a 2 e I «*> (a^a^e I. Assuming an Instance of the 
antecedent results in the addition of iv) J and v) j 2 « I to table I and of 
(3) (j 1 j 2 )j 1 " 1 « I to the proof tree, where j L and j 2 are constants. Status PUT 
is given to this line. No steps are possible from the hypotheses on table I as 
it stands. The set constant I is identified by i) and the appropriate instance 
of the definition of intersection is added to table I: vi) a^ H & a^e J ”0 
a L « I and vii) a^ I «o a^ H & a^ J. Thus (4) (j^Jii" 1 * H & (J l j 2 )j l e J 
goes on table II, and it is split into (5) H and (6) « J- 

•Otis application of detachment to (3) causes status PNT to be given to the next 
line on the proof tree of status REL as soon as all other reductions that can 
be made from (3) are completed. Since no further steps are possible, the proof 
continues by examining (5) (since (4) has been disposed of by splitting). 

Again no progress is possible from table I as it stands. The constant H in (5) 

causes viii) a^ G (■ 1 « 2 >* 1 " 1# H * “ 1 “ 8tance of the definitlon o£ 

normality, to be put on table I because of ii). Then the proof tree is aug¬ 
mented by (7) if G &j 2 * H, which yields (8) J t « G and (9) J 2 « H. Work is 
now completed on line (5), and line (6) is placed in status PNT. Table I as 
it stands can cause further progress on table II (all lines from (6) to the 
end will be considered by SCANW), namely from line (9) is created (10) if I, 
which is verified (line v) on table I) and therefore line (9) is also verified. 
Line (6) must now be examined in detail, and the definition of J is added to 
table I; ix) a^ J -> a^ G, x) a^ J 4 a^ J «■*> a^s J. xi) e^ J, and 
xii) a^ J «e» a^ 1 * J. This leads to the following reduction of (6): (11) 

iff j * J, which become (12) iff J and (13) J- This completes 

consideration of line (6). The next line of status RKL is line (8), and it 
takes on status PNT. Table I as it is yields (14) if J as a reduction of (8). 
Line iv) of table I is verification of this, which results in verification of 
(7), since the other conjunct of (7) is the already verified line (9). Thus 
line (5) is verified. Line (12) is the next line to take on status PNT. From 
vii) on table I is obtained (15) j^e I. and then from x), (16) if J & J 2 « J* 
As (16) is split, it is seen that if J is line (14), already verified, and the 
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lone reduction of (16) becomes (17) j J. Next line (13) is scanned, yield¬ 
ing (18) I and a reference to line (14), and thus line (13) is verified. 

Attention moves to line (15), which suggests (19) j ^ j 2 e H & j-^ 6 * This 

fruitless move is not avoided by ADEPT, and it yields (20) ^ an< * a c ^ r “ 

cular reference to (12). Line (17) is now considered, and vii) on table I 
gives a reference to line (10), which is verified, thus causing a chain of 
verification leading through (17), (16), (12), (11), (6), (4), (3), (2), (1), 
and the proof is complete. The final proof tree is shown in Figure 3. Lines 
(15), (18), (19), and (20) were unnecessary. 

Now suppose that the hypothesis that H is a subgroup of G had been stated 
explicitly. Line (5) would then have two reductions — the one due to the 
normality of H (line (7) above, which is split into (8) and (9)), and another 
due to the hypothesis that H is a subgroup — namely (10') i^2 e ^ & J \ H, 
which is a useless step. (10') immediately is split into (11') and (12*). In 
fact, not only is extra work generated, but ADEPT, with its one-pass organiza¬ 
tion, is unable to prove the theorem at all. The extra hypothesis confounds 
the algorithm as follows: 

After line (5) is processed, line (6) is put into status PNT due to the 
two applications of detachment to (5). Before the terms and constants of (6) 
are examined, a scan is done, and line (8) is seen to generate the reduction 
(13') j^e H by application of detachment using the conjunct of the definition 
of H as a subgroup which states that H is a sub set of G. Line (8) is therefore 
marked unworthy of further processing by putting it in status RELl. After 
further lines are generated by the scan, the constants of line (6) are finally 
examined, and the instance of the definition of subgroup due to the fact that 
J is a subgroup is put on table I. This suffices to process line (6), as in 
the proof just presented. But the next line of status REL is no longer line 
(8), and the assignment of status PNT is made to a later line on the proof 
tree, thus providing that line (8) never can be scanned by the axioms saying 
”J is a subgroup". The proof above shows that verification of line (8) is a 
necessary part of the proof, and that it is verified because J is a subgroup 
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of G. ADEPT has passed over this crucial line, and therefore can not produce 
a proof of this version of the theorem. 

For the problem of proving that the intersection of two normal subgroups 
is normal, the introduction of explicit but unnecessary hypotheses (namely that 
the two normal sets are in fact subgroups) causes ADEPT to do extra work but 
does not cause the program to be unable to supply a proof. The ADEPT algorithm 
is unaffected by the manner of statement of the problem that the intersection 
of two normal subgroups of a group is again a subgroup of that group. As a 
matter of fact, this proof is done without a single unnecessary line; i.e., all 
lines on the proof tree contribute to the verification of the head of the tree. 
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Problem V-B 


The second problem to be examined In detail Is a rather simple one, 
though, like the previous example. It cannot be proved by ADEPT If given an 
unnecessary hypothesis. The proof will be discussed, and a reproduction of 
the actual output from ADEPT Is provided. (Note that table I Is not printed 
out In serial order, and that the symbols VERA2 and A2 are used for the sta¬ 
tuses VERST and ST.) Also to be noted In this example is a detail involving 
the Implementation of the simultaneous performance of related substitutions. 

Theorem: A subset H of an abelian g roup G is normal . 

Proof: It suffices to show that if a^« G and a^a H, then (a^a^a^ H * 
Assuming an instance of the antecedent, it remains to prove the corresponding 
instance of the consequent. In dealing with a particular instance, ADEPT has 
to generate new symbols Internally, which are specified to be constants. The 
symbols G04088 and G04089 seen in the output are the symbols created.by ADEPT 
for this purpose. For the following discussion, A3 and A4 will be used in¬ 
stead. Thus line (3) would appear as (MEMBER (*PR0D (*PROD A3 A4 G) 

(♦INVERSE A3 G) G) H), or in mathematical notation, (a^a^Ja^ ^8 H. A check of 
the terms of this line causes no action, since MEMBER has a null sufficient 
condition and definition, *PR0D has a null definition, and there is no defini¬ 
tion of *INVERSE in ADEPT'S table. (Hie latter is effectively compiled into 
PUT0N2 by means of "built-in" axioms, as described in Chapter IV.) Examination 
of the constants of (3) yields two set constants G and H which are defined by 
three statements on table I. Therefore instances of the corresponding defini¬ 
tions appear on table I, as indicated below (using mathematical notation): 

vi) a^e G & a^e G a \*2 “ a 2*l (from ii), (ABELIAN G G)) 

vii) a^e G & a 2 « G “> a^e 6 

viii) G is associative » (from iii), (GROUP G)) 

ix) e Q e G 


70 







(and (subset h g) (and (abelian g g) (group g))) 
nl 1 

(normal h g g) 


(((1 . 1) SUBSET H G) ((2 . 2) ABELIAN G G) ((3 . 3) GROUP 
G) ((4 . A) MEMBER G04088 G) ((5 . 4) MEMBER G04089 H) ((9 . 

10) MEMBER (* IDENTITY G) G) ((12 . 9) MEMBER (*PR0D G04088 
G04089 G) G) ((13 . 9) MEMBER (‘INVERSE 004088 G) G) ((15 . 

9) MEMBER G04089 G>) 

(((6 . 9) IMPLIES (AND (MEMBER A1 G) (MEMBER A2 G)) (EQUAL 
(•PROD A1 A2 G) (*PROD A2 A1 G))) ((7 . 10) IMPLIFS (AND (MEMRFR 
A1 G) (MEMBER A2 G)) (MEMBER (‘PROD A1 A2 G) G)) ((8 . 10) 

ASSOG G) ((10 . 10) IMPLIES (MEMRFR A1 G) (MEMRFR (‘INVERSE 
A1 G) G)) ((11 . 11) IMPLIES (MEMBER A1 H) (MEMRFR A1 G)) ( 

(14 . 9) EQUAL (‘PROD (*PROD G04088 G04089 G) (*INVERSF G04088 
G) G) (*PROD (*INVERSE G04088 G) ;*PROD GQ4088 GO4089 G) G)) 

((16 . 9) EQUAL (‘PROD G04088 G04089 G) (*PROD G04089 G04088 
G))) 


R 


(((VER (HEAD) (2 NONE) 1 4) NORMAL H G G) ((VER (1) (3 NONE) 

2 NILL) IMPLIES (AND (MEMBER A1 G) (MEMBER A2 H)) (MEMBER ( 

•PROD (*PROD A1 A2 G) (‘INVERSE A1 G) G) H))) 

(((VER (2) (16 10 NONE) 3 12) MEMBER (‘PROD (•PROD G04088 G04089 
G) (* INVERSE G04088 G) G) H) ((VERA2 (HEAD) (5 NONE) 4 12 6) 

AND (MEMBER (‘PROD G04088 G04089 G) G) (MEMBER (‘INVERSE G04088 
G) G)) ((VERA2 (4) (11 7 NONE) 5 12) MEMBER (‘PROD G04088 604089 
G) G) ((VERA2 (4) (NONE) 6 12) MEMBER (‘INVERSE G04088 G) G) 

((VERA2 (5 HEAD) (9 NONE) 7 12 6) AND (MEMBER 604088 6) (MEMBER 
G04089 G)) ((VERA2 (7) (NONE) 8 NILL) MEMBER G04088 G) ((VERA2 
(7) (12 NONE) 9 12) MEMBER G04089 G) ((IRR (3) (NONE) 10 12) 

NILL MEMBER (‘PROD G04088 (‘PROD 604089 (*INVERSE. 604088 6) 

G) G) H) ((IRR (5) (NONE) 11 NILL) NILL MEMBER (‘PROD 604088 
G04089 G) H) ((VERA2 (9) (NONE) 12 NILL) MEMBER 604089 H) ( 


(A2 (HEAD) (14 NONE) 13 NILL 6) AND (MEMBER 604088 6) (MEMBER 
(•PROD G04089 (*INVERSE G04088 6) 6) 6)) ((A2 (13) 0(QNE> 14 
NILL) MEMBER (*PROD G04089 (*INVERSE G04088 G) G) Q) ((VERA2 
(HEAD) (NONE) 15 NILL 6) AND (MEMBER 604089 6) (MEMBER (*!NVERSE 
G04088 G) G)) ((VER (3) (NONE) 16 NILL) MEMBER (‘PROD (‘PROD 
G04089 G04088 G) (*INVERSE G04088 G) G) H)) 

QUIT, 


28,166*1.783 


Figure 4 

Actual output frca ADKPT 
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(from iii), (GROUP G)) 


x) a^e G ==> a^ G 
xi) a 1 e H ==> a^e G (from i), (SUBSET H G)) 

(Line iv) is a^e G and line v) is a^e H). Associativity is expressed by the 
statement (ASSOC G), allowing the use of a special matching subroutine, as 
opposed to an explicit line 

viii') a 1 e G & (a 2 e G & a 3 e G) ==> (a^^ = a^a & 3 ). 

SCANW now causes the following lines to be put on the proof tree as two 


subordinate 

trees: 


(4) 

a 3 a 4 S 

G & a 3 " 1 e G 

(5) 

a 3 a 4 e 
-1 

G 

(6) 

a 3 e 

G 

(7) 

a^e G 

& a. e G 

4 

(8) 

^3 € G 

(immediately verified) 

(9) 

a. e G 
4 



Verification of (7) or (4) would allow the consequent of vi), the abelian 
axiom, to cause a substitution in line (3). 

From line viii), (10) a^ (a^a^ ^) e H is obtained as a reduction of (3). 
Line (3) has not been involved in a use of detachment, and no verification of 
it has occurred, so the scan proceeds to the rest of the proof tree (through 
line (10)). This causes: from (5) because of vii), a reference to (7); from 
(5) because of xi), (11) a^a^e H; from (6) because of x), verification due to 
line (8); from (9) due to xi), (12) a^e H. Since line (12) is line v) of table 
I, it is immediately verified, thus completing verification of lines (4) 
through (9), and rendering line (11) irrelevant. 

The scan continues, yielding two new subtrees because of vi) and (10): 

(13) a s G & a a ^ G 

3 4 3 

(14) a 4 a 3 G ( a 3 e G being line (8)) 

(15) a^e G & a^ G, which is immediately verified since both its 
conjuncts have been verified. 

This completes the scan of the proof tree through line (10) as was indi¬ 
cated, and since new lines have been added to the proof tree, the scan of the 
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whole tree (lines (3) - (15)) is redone. As shown in Diagram II, no line on 
table I is used to scan any lines on table II that it already has scanned 
unless the line is an implication which is now augmented by a verified head of 
a subordinate tree it suggested. This is the case with line vi), and since 
line (4) is verified, table I is augmented by xii) a^a^e G, xiii) a^ G, and 
xiv) (a^a^a^ * = a^ \a^a^). Then, analogously, xv) a^e G and xvi) a^a^ = 
a^a^ are obtained from line (7). 

Scanning line (3) with these new lines, two substitutions are found, and 
since lines xiv) and xvi) have arisen due to the same table I entry (line vi)) 
and thus are in the same logical class, these substitutions are considered to 
be related. However, they conflict, and cannot be performed together, so they 
are done one at a time. As it happens, the substitution suggested by xvi) is 
performed first, yielding (16) (a^a^a^ H. As described in the last chap¬ 
ter, this is immediately collapsed into a^e H, which is already verified as 
line (12). This suffices to complete the proof. 

If line i) of table I had been (SUBGROUP H G), ADEPT would have gone off 
on a dead end, thinking line (3) to be processed after generation by detachment 
of the reduction a^a^e H & H. Efficient means of avoiding such difficul¬ 

ties (i.e., without backtracking) are clearly of great interest, and this sub¬ 
ject will be approached in a later chapter. 
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Problem V-C 




Sometimes ADEPT produces a very inefficient proof even when no unnecessary 
hypotheses have been explicitly stated. This is the case for the following 
theorem: A conjugate D of a subgroup H of a group G is itself a subgroup of G. 
(A conjugate of a subgroup H is specified by a member a^ of G, and is the set 
such that a 2 e D <*>*o Oa 3 )[a c H & *= (a^a )a^ ; i.e., D » a^Ha^ *.) The 

proof given by ADEPT for this theorem is 73 lines long, of which 49 are due to 
"false leads." It is easy to see how this happens by observing the development 
of only a small section of the proof. 

To prove D a subgroup, it is necessary to show closure under composition, 
so assuming d 2 6 D and d 3 e D, d 2 d 3 e D must be shown; i.e., (]a^)[a 3 < H & d 2 d 3 - 
(a.a 3 )a^ *] is to be proved. SOLVEX quickly reduces the problem to showing 
a^ ^((d 2 d 3 )(a 3 *) c H, which is immediately changed to 

a l’ 1((d 2 d 3 )a l > * “ ( * ) * 

The desired continuation is to observe that the membership of d 2 and d 3 in 

-1 -1 

D allows substitution of (a^h^ja^ and (*^^*1 for d 2 and d 3 res P ectivel y 
in (*), where h^ and h 2 are then known to be in H. The two substitutions are 
related, and will be performed simultaneously, yielding the following reduction 
of (*): a^ ^((((*jhj)a ^)((a^h 2 )a^ ^jja^) • H, which Immediately will be 

collapsed into hjhg* H. This soon will be verified inasmuch as H is a sub¬ 
group. But, from (*) are derived 3 other reductions, each of which leads to 
much extra work. Two of these arise because of associativity, and the third 
is a direct application of the closure-under-products conjunct of the defini¬ 
tion of the subgroup H to line (*). All of these entries are on table 1 by 
this time, and so there is no selectivity involved. A similar situation 
arises when proving the closure of D under inverses. Perhaps the greatest 
difficulty in theorem-proving is "knowing" when a proof is on the right track. 
Once again, the reader is referred to the later chapters. 
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Problem V-D 






A lesson in the use of ADEPT may be learned from the following example. 

The commutator of two members ^ and a 2 of a group G, denoted in mathe¬ 
matical notation by [a^], is defined by [a^] - ((afV > a !>V This 
concept can, of course, be defined for ADEPT, and identities concerning com¬ 
mutators can be proved. ADEPT is not primarily designed for manipulation of 
identities, and all but the simplest of these requires a large amount of com¬ 
puter time, though there are some fairly obvious heuristics which could be 
applied to this very special problem area to remedy this. Such digressions 
are not relevant to the ADEPT project, but insights from one particular simple 
identity problem happen to be valuable in general. The problem is: 

[ a l ,a 2 1 1 ” I a 2 » a i 1' 

Although either the notation (COMMUTATOR A3 Al A2 G) or 
(♦COMMUTATOR Al A2 G) may be employed, assume the latter is used. The prob 
lem then may be stated in many ways. One is to give ADEPT the conclusion 
(EQUAL (*INVERSE (*COMMUTATOR Al A2 G) G) (*COMMUTATOR A2 Al G)). Remembering 
that no substitutions are made in the second argument of an equality on the 
proof tree, it is seen that this will produce a fairly lengthy chain of sub¬ 
stitutions, resulting in a correct proof, but a proof made quite long due to 
the application of the associativity axiom. No improvement is obtained using 
FEQUAL. For this problem there is a way out, however. A sufficient condition, 
known to ADEPT, for INVERSE, is given by "a 2 is the inverse of if a^ » e 
This can be used if the usual asterisked notation for inverse is not employed; 
i.e., if the conclusion of the problem is put in the form: (INVERSE 
(♦COMMUTATOR A2 Al G) (*COMMUTATOR Al A2 G) G). Doing this works very well, 
simply because related substitutions are made simultaneously, so that the 
reduction of the application of the sufficient condition is (((a 2 ^ >* 2 > a i) 

(((a 1 ' 1 a 2 ' 1 )a 1 )a 2 ) - e, which is immediately collapsed into e = e, a line 
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which is verified as it is put on the proof tree. This is a very striking 
example of the value of doing related substitutions simultaneously and per¬ 
forming certain operations on a line, such as this "collapsing", at the time 
of its placement on the proof tree. 

The point of all this is that different ways of doing problems are often 
not too similar in their demands upon the resources of computer time and mem¬ 
ory. Even if ADEPT were much more highly developed than it is at present, 
including possession of the ability to choose the "correct" path of the proof 
tree more often, it well may not be able to take the statement of a problem 
and transform it into the most advantageous form. ADEPT should be able to 
solve the problem in any form, sooner or later, but the user can be asked to 
utilize some ingenuity in setting up the form of the hypotheses, conclusions, 
and definitions. ADEPT is flexible enough to allow significant experimentation 
along these lines, perhaps to the end that future programs will be able to 
take this burden from the user. 
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Problem V-E 


The following is a problem that has been considered by other theorem-prov¬ 
ing programs: a group , every element of which is of order 2, is abeli an- 
ADEPT has no provision for numbers, but for an element a l to be of order 2 
simply means that it must satisfy the equation = e. One would like to 

give this problem to ADEPT and have it come up with a proof. But, faced with 

proving gl g 2 = g 2 V the program has no idea how to proceed. None of the 

axioms can be applied to the statement g^ = g^* Now ic turns out that a 
simple proof of this theorem, requiring no "construction,” follows from the 

I 1 ” ^ _ 

c 0 _ « t u~ f a = a . The proof proceeds: g-,g ? " Si So 

consequence of - e tnat a^ ^ ^ r l z i ^ 

(g gj^)" 1 = 8 2 8 r ADEPT P roves this theorem given the h yp° thesis a i ~2 a i • 

It does so with very little wasted effort, due to the restriction on matching 
simple variables and the immediate simplification of expression such as 

, -U-l 

(g L > • 

Of course, this is hardly fair, for in order to have ADEPT prove this 
theorem, the user must know how the proof proceeds! Clearly ADEPT has to be 
more clever, though a user who was very familiar with the program might real¬ 
ize which of the two ways of stating the "order 2" hypothesis was preferable 
(that is, if he were aware of both alternatives). One way to approach this 
difficulty would be to program into ADEPT a feature whereby insertion of the 
fact a 1 a 1 = e on table I causes the consequence = a x to appear. This 
would have to be programmed carefully, so that very little time would be spent 
checking all lines being put on table I to see if they are of this form. Such 


a feature would properly be called a heuristic. 

Another approach would be to make explicit use of a lemma, a -^ a ^ 

a = a _1 . Under which conditions this lemma would be put on table I is a 
1 1 

difficult problem. In addition, even if this lemma were not brought onto 
table I to "confuse" proofs of other problems, its use in this problem causes 
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a proof of twice the length, requiring four times the time of the original 
proof with the simple hypothesis a^ = 

The empirical approach to theorem-proving demands the incorporation of 
such lemmas or heuristics as the one described above. There are certainly 
direct analogues to the inclusion of such facts in ADEPT in the learning pro¬ 
cess of a student of group theory. This is in contrast to specification of a 
"complete" proof procedure (e.g., Herbrand's), which has a different orienta¬ 
tion than that of a student. It is known that complete procedures are very 
prone to fatal combinatorial explosion. The question is: Can an empirical 
approach handle enough special cases efficiently to surpass the other approach? 
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Problem V-F 


One of the first problems considered in conjunction with ADEPT was one of 
the most troublesome: The kernel of a homomorphism f^ reduces to the identity 
if and only if f^ is one-to-one . This theorem can be divided into two parts, 
and, defining a unitset to be a set with a single element, details of this 
problem will now be considered. 

Let f be a homomorphism from 6 to H, K its kernel, E the unitset con¬ 
taining the identity of G, and first assume that K is a subset of E; i.e., K 
reduces to the identity. To be shown is that f. is one-to-one. A sufficient 
condition for f^ to be one-to-one is that if f^(a^) ■ f^Caj), then a^ “ ®2* 

The usual proof proceeds by contradiction; if f^(a^) m f^(a 4 ) does not imply 
a^ ” a^ for some a^ and a^, then *) ■ (“4) (since f^ is 

homomorphic) ■ e^, so *3®^ K. However, *3®^ ^ ® G since 83 l 1 a^, contra¬ 

dicting the assumption that K reduces to e^ 

ADEPT has no provision for proofs by contradiction, but a reformulation 
of the sufficient condition is all that is needed to allow ADEPT to solve this 
problem: ^ is one-to-one if ^(a^f^a^ ■ implies a^ - This 

is clearly equivalent, and the proof proceeds straightforwardly: *3*4 * e g 

if *384 ' 1 € E, if 8384" L « K, if f 1 (® 3 ® 4 ' 1 ) “ V but f i< a 3 a 4 " 
f 1 (a 3 )f 1 (a 4 ' 1 ) - f 1 (a 3 )f 1 (a 4 ) _1 - e H - Thus the formulation of the sufficient 

condition is important, and it is reasonable to expect a user of ADEPT to 
supply appropriate entries to its tables, just as in ProblemV-D it was argued 
that the user should be expected to employ ingenuity in choosing the form of 
statement of a theorem. 

For the converse, it is the definition of one-to-one that is important, 
and indeed this half of the theorem is more treacherous. Here, assuming fj^ is 
one-to-one, it is desired to show that K is contained in E. So assume k^e K 
and attempt to prove k^e E; i.e., k L - e G . If the definition of one-to-one 
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used is that if f^(a^) = f^(a 2 ), then = a 2 > an infinite loop is generated: 
k L = e G if f 1 (^ 1 ) = f^e^ if f L < f x ( k i>) = f 1 (f 1 (e G )), etc. This loop could 
be stopped artificiallyj but that seems to be an unnecessary extra check to 
add to the program. Alternatively, an effort could be made to make sure that 
the argument of a function was in its domain, but this would not help in the 
case G = H. If the definition of one-to-one is: f^(a^)f^(a 2 ) ^ “ e H’ ==> 
a.a, = e , ADEPT will have no "ideas" as to how to proceed. But, the con- 
nective FEQUAL is available, and the definition of one-to-one can very natural¬ 
ly be phrased f^(a^) f^(a 2 ) ==> a^ = , and the proof proceeds: k^ = e G 

if f^(k^) =£ f^(e G >. Evaluating the left-hand side: f^(k^) = since k^e K. 
Evaluating the right-hand side: f. (e ) = e since f, is homomorphic. That 
completes the proof of this theorem, which is another example where the forms 
of definitions, etc. are critical. 
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Problem V-G 

Among the proofs of isomorphisms produced by ISOLVE (see Chapter III), 
none contain any surprises. The proofs have been of isomorphisms of a trivial 
to a relatively complex nature. The simplest required ISOLVE to go through 
the motions of proving a group G isomorphic to itself. As a related problem, 
GENFCN may be overridden, and the relation f^(a^) = (g^ a ^)8^ ^ or some ®l e ® 
inserted, and this will be shown to be an isomorphism. Similarly, for G 
abelian, f (a^ = a^ 1 can be shown to be isomorphic by ISOLVE. 

The most complicated isomorphism that has been done by ISOLVE is to prove 
that G/H is isomorphic to (G/K)/(H/K). This statement only makes sense for the 
case that K and H are normal subgroups of G, and ADEPT is able to prove the 
justifying fact that, under these hypotheses, H/K is a normal subgroup of G/K. 
To prove the isomorphism, the assumptions of the normality of K and H need not 
be stated explicitly, as they play no further role in the proof. The entire 
proof of isomorphism, including the generation of a map from G/H to (G/K)/(H/K) 
by GENFCN, took 7j^ minutes of computer time and 40 entries on the proof tree. 

Of these, 7 were used in the proof that the relation is well-defined, 18 in the 
proof that it is homomorphic, 12 in the proof that it is onto, and 3 to prove 
that it is one-to-one. 2 lines of the proof that it is well-defined and 6 
lines of the proof that it is homomorphic were irrelevant; i.e., useless 
branches. (Incidentally, if GENFCN is asked to provide a relation from 
(G/K)/(H/K) to G/H, the corresponding proof of isomorphism takes 9 minutes 
of computer time and 44 lines.) Without the use of the MODEL heuristic, the 
same proof would have been generated, but with an additional 30 to 40 irrele¬ 
vant lines at a cost of 3 to 4 extra minutes of computer time. 

Other isomorphisms established by ISOLVE include that of G and K when ^ 

is an isomorphism from G to H and f 2 is an isomorphism from H to K; that of G 

with G/(eJ; that of G/(Ker f ) with f.(G) for a homomorphism fj_; and that of 
G iJ- 
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G/f^"^(K) with H/K for an epimorphiam from G to H (where K is a normal 
aubgroup of H). ADEPT ia able to prove all juatifying theorems to ahow that 
theae problema make 8enae —■ for instance, in the last example, that f^ (K) 
is indeed a normal subgroup of G. ISOLVE does not automatically go through 
theae juatifying theorems; it assumes the problem to be well-defined. But 
ADEPT has been given the associated theorems which establish this, and it has 
proved them. 

ISOLVE may also be used to establish theorems about other relations. For 
instance, rather than give ADEPT separate theorems, ISOLVE may be run in an 
attempt to "prove" that the relation (generated by GENFCN) f^a^) “ a^H from 
G to G/H is an "isomorphism". ISOLVE will produce proofs that the relation is 
homomorphic and onto, and will, of course, fail to show it to be one-to-one. 
Another such example is the canonical relation between G/K and f^(G)/f^(K) 
which also is an eplmorphism but not an isomorphism, for a general epimorphism 
f . This relation must also be proved to be well-defined, as opposed to the 
map from G to G/H which is trivially well-defined by its defining equation. 

It ia interesting to observe that though the term *LCOSET (which stands 
for "left coset") appears often in the statement on the proof trees of the 
isomorphisms involving factor groups, its definition, which is not needed in 
order to establish the isomorphisms, is never put on table I by ADEPT, thus 
saving a great deal of effort. This is a good Illustration of why it is not 
desirable to go to the tables for instances of definitions of all terms that 
appear in the course of a proof regardless of whether or not they appear in 
lines of status PNT. 

To conclude this chapter, an insight gained from ISOLVE should be men¬ 
tioned. The selective introduction of instances of definitions; i.e., the 
controlled growth of table I at the start of a problem, mentioned in Chapter 
III, could, of course, be used by ADEPT in each of the 4 sub-theorems handed 
to it by ISOLVE. This involves, in general, obtaining the definition of each 
term in the hypotheses of an isomorphism theorem 4 times. It has been found 
that the class of proofs involved in establishing isomorphisms is not sensitive 
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to selective growth of table I, and consequently it is more profitable to 
have ISOLVE call ADEPT with the instances of definitions of all terms in the 


hypotheses already 
tions once for all 
of such trade-offs 
groups by computer 


on table X. Thus ISOLVE can consult the table of defini- 
4 sub-theorems. The determination of the relative merits 
is one of the types of insights into proving theorems about 
which can easily be obtained by experimentation with ADEPT. 
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CHAPTER VI 


LIMITATIONS OF THE PRESENT PROGRAM 


The previous chapter, in addition to illustrating proofs produced by 
ADEPT, has also served as an introduction into the limitations of the present 
program. The remainder of this report will be devoted almost entirely to dis¬ 
cussions of various types of theorems with which ADEPT cannot cope. These 
types fall into different classifications. For instance, there are those 
which ADEPT cannot do simply because it is not broad enough. Such theorems 
include facts involving the introduction of numbers, say as orders of finite 
groups. Another such group is theorems requiring statements using double 
existential quantifiers, which cannot be handled by SOLVEX at present. These 
theorems are not significantly harder in any sense of the word; they simply 
require additional subroutines for ADEPT. 

Another class of theorems might be called the overspecified class. Such 
a grouping has no mathematical basis in group theory, but it is a label to be 
applied to those theorems with extra hypotheses with which ADEPT performs so 
erratically, as seen in the last chapter. As theorems become more complex, 
even those with minimal sets of hypotheses will cause similar difficulties for 
ADEPT. A decision must be made whether or not this can be overcome by heuris¬ 
tics, or whether a completely different approach to theorem-proving will 
ultimately have to be adopted. 

There are also theorems which require new and different methods of proof. 
In contrast to those which require introduction of additional types of con¬ 
cepts, these theorems are often significantly more difficult. Mechanization 
of proof by contradiction, use of constructions in proofs, etc., all must be 
considered. Finally, it is important to ask if the reasoning used in advanced 
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theorems of group theory is fundamentally different from that used in ele¬ 
mentary theorems? Is it the case that it is not a matter of extending ADEPT 
to be much, much more sophisticated, but rather a matter of implementing an 
entirely different form of human thought process, though perhaps in conjunction 
with a more sophisticated ADEPT? The logician is tempted to rely upon the 
theoretical fact that all theorems of mathematics follow or issue from the 
basic axioms of the system; the pure mathematician has reservations for he 
knows that intuition and other rather illogical procedures play a large part 
in his advanced work. The choice of methods with which to prove an advanced 
theorem is an excellent example of a step which cannot be done by simple pro¬ 
cessing of hypotheses, conclusion, and relevant definitions. 

All these considerations must be taken into account when discussing the 
future of theorem-proving by computer, and when discussing the level to which 
a program like ADEPT for proving one class of theorems should be perfected. 

The class of theorems for which ADEPT is best suited should be clear. 
ADEPT produces proofs which follow directly from given axioms, lemmas, and 
definitions. To some extent this can be augmented, perhaps by such methods 
as proof by contradiction. But clearly the approach used in ADEPT is 
ill-suited to many methods of proof, such as construction of counter-examples, 
a procedure certainly in the repertoire of any good group theorist. 

Before continuing this discussion, it will be profitable to consider 
specific problems of two kinds. The first kind includes problems that ADEPT 
either can "almost" prove, or that are closely related in content to problems 
that ADEPT has proved. The second type is a group of problems of a different 
nature, involving new concepts and methods, which have been considered in 
detail with proof by ADEPT in mind. 


85 



Problem VI-A 


It would certainly appear that ADEPT should be able to prove that the 
center of a group is a normal subgroup . However, it cannot, and the reasons 
why are instructive. 

Proving that the center is closed under products is done easily, by a 
version of the following argument: Let C be the center of a group G, and let 
c^ and c 2 be members of C. To show CjC 2 « C requires proving that ( c i c 2 )g^ “ 
gl( c l c 2 ) f° r 8]^ G. But (c 1 c 2 )g 1 - c i ( C 2®1^ “ c l^ g l c 2^’ since c 2 « C, and 
c ^ (gi c 2 ) * ^ c i g i^ c 2 = ^ 8 i c l^ c 2 " 8 1 ^ c 1 c 2 ^* slnce c i* c * There i® inefficiency 
in ADEPT's actual proof, to be sure, but it proceeds straightforwardly. 

The next step is to prove closure under inverses. Assuming c^e C, c^ C 
must be proved, or c^ 'g^ « 8 i c i * f° r an y g^« G. There is more than one way 
to do this, but no way that does not require a bit of ingenuity. One method 
is to use a "construction"; i.e., the reverse of the procedure of simplifies* 
tion. This proof proceeds: Cj^ ^ - Cj^ 1 “ c l _1 °l g l c l” 1 “ 8 1 C 1 _1 * 

since c^e C. This approach requires clever heuristics to introduce the appro¬ 
priate construction. An even neater proof is as follows: c^ *g^ ■ 

(gl c ^) * * ^ c I g l ^ “ g i c i This proof depends upon the identities 
a l a 2 " ^ a 2 a P ant * a l a 2 * ^ a 2 a l ^ Now AD®PT "knows" the identity 

( a ^ a 2 ) = a 2 > a » explained in Chapter IV, and this suffices to provide 

one of the equalities needed for this proof, for (c^g^ ^ matches (a^a 2 ) \ 

i.e., is of that form. But c^ 'g^ does not match a 2 *a^ such a match re¬ 
quires an explicit intermediate step — c ]" lg i ” c 1 " l (g 1 ' 1 )” 1 _ to obtain 

the proper form. 

It is not profitable for ADEPT to explicitly check every line against the 
identity a^ a 2 ■* (a 2 \ even though it seems natural to check for in¬ 
stances of the identity (a^a 2 ) * a 2 *a^ *. Neither is it profitable to use 
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= (a^ ^ as a symmetric equality. (Remember that it is written now using 

EQUAL, not EQUAL2. This is an example where extra programming is dictated to 
make possible the reverse substitution, rather than opening the problem up to 
a proliferation of substitutions by using EQUAL2.) So again heuristics need 
to be discovered to enable ADEPT to prove this theorem without introducing 
provisions in the algorithm which would virtually insure large increases in 
useless effort for all proofs in general. 

Another mishap occurs when trying to prove that the center is normal. 
Assuming c^ C and g^ G, the desired conclusion is (§ 1 c 1 )g 1 c> T * 16 " ob " 
vious" step to ADEPT is to proceed as in the first two parts of this theorem, 
namely to show that ((g^c^)g^ ^)g 2 = ) (*) ^ or an F 82 ® a 

reduction obtained by detachment, using the definition of center . And the 
algorithm provides that no other use of the definition of center can then be 
made with respect to the line (g^pSi" 1 ® C (see Diagram II and the discussion 
of heuristic B for "progress" in Chapter IV). For most theorems, this re¬ 
striction of ADEPT is well-justified, for most theorems progress as the first 
part of this one did. To prove C, ADIffT showed (c^c^jg^ “ g^( c ^ c 2 ^» 

and to carry out a parallel branch starting with CjC^e ^ nee£ ^ e8s proH-f - 
eration of effort. However, to show normality the simple proof is to proceed 
(g 1 c 1 )g 1 " 1 « C if (c 1 g 1 )g 1 ' 1 ( - c L ) e C. Indeed, to prove (*) requires either 
some kind of planning, a construction, or substitution in both sides of (*), 
none of which are presently possible in ADEPT. 

Thus, though ADEPT has enabled the computer to produce many proofs, em¬ 
phasis on those types of problems which give it trouble indicates that a rad¬ 
ical re-examination of the whole philosophy of ADEPT'S design may be necessary. 
Or perhaps the difficulty is that the proper heuristics have not yet been 
isolated. 
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Problem VI-B 


There is a second problem on which ADEPT fails that is not dissimilar 
from the preceding one. Consider the theorem that the map = a^ ^ from 

a group G into itself (the map taking every element into its inverse) is 
homomorphic if and only if G is abelian . One half of this gives ADEPT no 
trouble; in fact for G abelian, the map in question is isomorphic and ISOLVE 
proves this. 

The converse is not hard, but requires ingenuity of the same type as that 
needed in the second part of the previous theorem. To show G abelian, ADEPT 
must establish the identity g^g^ = ®2®1 un< ^ er the hypothesis that f^ is 
homomorphic. Completing the proof requires use of a "construction"; in 
particular, a substitution of the form a L (a^ 1 ) -1 . Note that the execu- 
tion of such a step would require a message to the simplifying routine associ¬ 
ated with PUT0N2, insuring that the new line will not be simplified. The proof 
proceeds: = ((g^)' 1 )' 1 - fjfe^)" 1 = (f L (g^f l (g 2 ))' 1 = (g^g^ 1 )" 1 = 

) = § 2 ®l* (Close examination of this proof reveals that the hy¬ 

pothesis defining the map f^ must be written using EQUAL2. The converse of 
this theorem, showing f^ to be an isomorphism when G is abelian, requires only 
EQUAL in the defining equation of the map.) 

Further discussion of this theorem would only parallel comments made 
while discussing the last problem. However, in Chapter VIII some possible 
means of overcoming difficulties such as these will be suggested. 
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Problem VI-C 


It is a theorem of group theory that f^K)" 1 = K for any subset K of f ' s 
domain, if ^ is a monomorphism. The inclusion K<= f^K)" 1 is trivial and is 
true for any homomorphism f r ADEPT proves it with ease. The converse is 
much harder, and appears to demand an approach not possible with ADEPT. At 
least, the most obvious proof to the author is one which is ill-suited to 
ADEPT'S algorithm. It seems to require a controlled "working forward" ap¬ 
proach which cannot be supplied by the "lemma-proving" procedure which is made 
possible by lines of status ST on table II. Briefly, the proof proceeds as 
follows: 

Assume a^e f^(K) . Then f^(a^) e f^(K), which, by the definition of 
ima^e, means that f^a^ = f^) for some a^ K. But ^ is one-to-one, so 
a 2 = a l and therefore a^e K, which was to be shown. 

Now consider the problem as ADEPT sees it — given the assumptions and 
assuming a^ f L (K) l , the line to be proved is a^ K. But K is an arbitrary 
subset, and in addition no substitutions are possible for a^ so ADEPT is 
unable to continue. From the point of view of working backwards, the above 
proof depends on the implication (3a 2 )[a 2 e K & a^ = a 2 ] ==> a^ K. However, 
even if ADEPT "knew" this fact, SOLVEX would attempt to "solve" the line 
(3a 2 )[a 2 e K & a L = a 2 ] for a 2 , and would come up with the "reduction" a e K, 
which is no help at all. Thus determination of a candidate for this variable 
a 2 mUSt P roceed b y ®°re devious methods. The fact that the definition of 
f! ( K > causes V f L (K) 1 to imply an identity involving f^) as opposed to 
fl may be able to be used as the "tip-off" that the usual procedures of ADEPT 
will not suffice for this proof. 
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Problem VI-D 


The last problem which will be discussed to illustrate limitations of 
ADEPT for proving theorems of the type it is best suited to prove is the nec¬ 
essary and sufficient condition for equality of two (left) cosets a^H and a 2 H: 

a H ■ a H <«*■> a,” 1 * H. This theorem is an example of how everything can go 
12 2 

wrong! 

First, consider proving a^^e H from the equality of the cosets. ADEPT 
has no "ideas" except to attempt to show a^ and a 2 to be members of a^H or a 2 H, 
which is suggested due to the form of the definition of left coset, for if any 
of these lemmas could be established, a substitution would be possible in the 
original line. Now a x and a 2 are general members of a group G of which H, a^, 
and a 2 H are subsets. Therefore the MODEL heuristic will not allow these candi¬ 
dates for heads of subordinate trees to appear on table II. Fortunately, the 
user has the option of not using the MODEL lattice (though he may not know 
when not to use it), and at least it is possible to get ADEPT to proceed with 
this proof. 

Since a^H and a 2 H are the same set according to the hypotheses, each of 
these four heads of subordinate trees is a reduction of one of the other three. 
For example, to show a^e a 2 H it suffices to show a^s a^H. The fact that 
a^« a^H for any a^ is a simple one, and ADEPT can prove it quickly if given 
it as an explicit problem. However, as a line of status ST, it cannot be 
proved, for the proof that a^e a^H requires "solving" by SOLVKX the line 
( 3« 4 )t a 4* H & a^ - a^a^]. As shown in Diagram I, only lines of status PNT 
are ever processed by SOLVEX, and a line of status ST can never take on status 
PNT. Thus the present version of ADEPT is stymied. 

One possibility, which would not cause great amounts of additional effort 
per proof, would be to try to "solve" every such line put on table II (i.e.. 
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always trying a call to SLVX in Diagram IV). If the line were not Immedi¬ 
ately solved, it would not be scanned as described in Chapter III unless it 
were of status PNT. The example in this theorem can be solved immediately, 
yielding a 3 ^a^e H which quickly reduces to e G e H, which could be verified 
from part of the definition of subgroup . But again trouble develops, for if 
H were explicitly assumed to be a subgroup, the original conclusion would be 
reduced to showing a 2 ^ H 4 a^e H, which is certainly a fruitless attempt at 
a solution. Furthermore, this reduction is derived by detachment, and thus 
a 2 H would be removed from further consideration, and by the time the 

status ST lines were verified, the substitutions in the original conclusion 
could no longer be made, since the pointer would have been moved down (i.e., 
status PNT would have been assigned to some subsequent line of the proof 
tree). 

It has already been observed in Chapter III that the design of ADEPT, 
and in particular, the restricted processing given to lemmas, is not oriented 
to proofs which must go back many "levels" to original definitions. In this 
spirit one would suggest that the user include with the specific hypotheses of 
this theorem the lemma a^e a^H. Even with this approach, the user can run 
afoul! The use of asterisked terms happens to be critical in this instance. 
Assuming that the user inputs the lemma in the form (MEMBER A3 
(*IX20SET A3 H G)) (where A3 is a variable), the proof will be completed easily. 
Without the asterisked term, the user must state the lemma as a translation of 
"let A be a left coset a^H; then a^e A", and this would cause an undesirable 
application of detachment to the original conclusion. Since a^e A matches 
a 2 ^a^e H, the proof would be "reduced" to showing that H is the coset 
(a 2 ^a^)H. This inference is completely valid, and the new line does happen 
to be provable, but only with great effort. Thus there is a definite need for 
the use of the asterisked term in this problem.^ 

The converse of this theorem is really a conjunction, namely to prove that 
ajH c a 2 H and a 2 H a a^H if a 2 ^a^e H. This proceeds normally, and requires 
explicit assumption that H is a subgroup. One inclusion parallels the other 
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in its proof, though ADEPT has no way of detecting this and profiting by the 
observation. The parallel is not quite complete; proving the inclusion 
a^H e a^H comes down to observing a^ ^ a 2 e H, which, while implied by a 2 a^e H, 
is not derivable by ADEPT. This situation is analogous to the one in the first 
problem described in this chapter, and no more need be said here. 

This discussion of this last theorem may seem to be lengthy and to place 
undue emphasis on the limitations of ADEPT. However, despite the inept per¬ 
formance just outlined, ADEPT did manage to prove many theorems! But all 
heuristics break down sooner or later, and a clear discussion of the impli¬ 
cations of ADEPT'S organization was certainly in order. Shortly, discussion 
will resume on the worth, limitations, and future of ADEPT, including possible 
corrective modifications which could be made, but first, problems of another 
class should be discussed — those with new features to which ADEPT could be 
adapted. After all, future work must take into account more kinds of theorems 
and harder theorems, as well as theorems very similar to the ones already 
discussed. 


t Note that a more general statement of the lemma, such as e G e B ==> 
a^e a^B, could lead to still another undesirable effect if it were not stated 
using the asterisked term *LCOSET. If the table I entry were (IMPLIES (AND 
(MEMBER (*IDENTITY G) B) (LCOSET A A3 B G)) (MEMBER A3 A)), then any occurrence 
of detachment using this implication would give rise to a table II entry with 
a variable, namely B. While variables in table II entries are not forbidden, 
they can lead to an entry which is difficult to prove or which has no interpre¬ 
tation. Here a proof tree line a^e H could be reduced to a conjunction, one 
conjunct of which is e e B, for a completely unspecified variable B. Thus the 
user must beware of implications P ==> Q on table I which have the property 
that if a table II entry Q 1 leads to a reduction P 1 using detachment, then P 
contains (free) variable; i.e., in creating the instance P' using the informa¬ 
tion obtained in finding the match of Q 1 and Q, constants were not substituted 
for all of the variable symbols of P. This situation can be avoided by making 
use of the well-known equivalence (used in the reduction of statements to 
prenex normal form): (Va^HPa^ ==> Q] * (3a^)Pa^ ==> Q. In the above 
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example, the lemma could have been stated (IMPLIES ( EXISTS 13 (AND (MEMBER 
(•'IDENTITY G) B) (LCOSET A A3 B G))) (MEMBER A3 A)). With this statement, 
trouble is averted, though, o£ course, an extension to SOLVEX would be nec¬ 
essary to actually handle any reductions generated by detachment using it. 
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CHAPTER VII 


EXTENSIONS OF ADEPT 


One method of proof which ADEPT does not use is mathematical induction, 
and it was this method which was considered in most detail as a specific ex¬ 
tension of ADEPT. Theorems which are proved naturally by induction are not 
too common in group theory, even when groups of finite order are considered, 
but enough were isolated in order to justify this section of the investigation. 
Most involve terms with a varying number of arguments, such as a finite prod¬ 
uct or intersection. Consequently, important questions of notation arise. It 
is simple enough to define a new type of variable or constant to represent 
integers, and N, Nl, ..., N 9 are used for the integer symbols, which may be 
variables or constants. Having done this, how shall the new concepts be 
represented? 

The easiest concept to represent is the iterated product of the same 
n tgrms 

variable — . .a^ or (a^. Using an asterisked term, this may be written 

(*EXP A 1 N G), where G is the set on which the composition is defined. The 
general iterated product is more difficult. Consider the product a^...a , 
which is to be denoted by the term *GPROD with some appropriate set of argu¬ 
ments which will include G, the set with the composition. Any notation used 
for this must be flexible enough to allow easy statement of such products as 
f (a,)...f (a ). It must also be easy to express the fact that if n is 1 in 
either product, the generalized product collapses to a single object. But 
this object or f^a^ In the examples given) is subscripted . It is impor¬ 
tant to notice that the subscripts of the letter "a" in the following two ex¬ 
pressions are not used in the same way: ( 1 ) a^e G & a^e G **^ > a^a^t G; 
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( 2 ) £ 1 (a 1 ..,a R ) - f (a^.. .f^ (a n ). In ( 1 ), the subscripted letters are used 

as symbols £or simple variables. The particular integers used as the sub¬ 
scripts have no significance. In ( 2 ), the subscripts are used to specify an 
ordering of the variables. Indeed, in ( 2 ), the unsubscripted letter is a 
meta-symbol denoting any variable/constant symbol, and the subscript yields 
information on the order and number of these symbols. 

Retaining the spirit of Polish notation, the term *SUB is introduced, to 
be used whenever a subscript is used to specify ordering, etc. A variable 
symbol can easily play the part of the meta-symbol, and a tentative represen¬ 
tation for a....a n is (*GPROD (*SUB A 9 1 ) (*SUB A 9 N) G). 

This is not satisfactory, and in order to see this, consider the equali¬ 
ties a 1 ...a n , - (a 1 ...a n )a n , and fj^). ..f 1 (a n ,) - [f l (a^ • • x <« n >] f 1 (« n i) • 
(n‘ is the successor of n, ordinarily n + 1 .) These are both instances of one 
general fact, which should be expressible by one statement. However, in the 
corresponding representations for these identities, the occurrences of 
(^SUCCESSOR N) are at different levels of the expression, and the matching 
routine will not suffice. Stating the situation in another way, it is impos¬ 
sible for ADEPT to have a schema of the form P(n) - Q(n) where n occurs at 
arbitrary levels in the syntax of P. 

One possible notation which will at least suffice, though it is cumber¬ 
some, is to include as arguments of *GPROD: 

i) the subexpression of ii) which is the subscripted 
subexpression of the general element; 
ii) a symbol acting as a meta-symbol for the general element 
of the product; 

ill) the number of elements in the product; 
iv) the set upon which the composition is defined. 

Similarly, a single subscripted object is written using as arguments of *SUB: 
1 ) same as i) for *GPROD; 
ii) same as ii) for *GPROD; 
ill) the value of the subscript. 
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The first argument mentioned is present to allow for a distinction between 
fl (a n ) and [f^a)^. Thus f ± (a^. .. f 1 (a^) = [f l (a^... fj_ (« n >] f 1 (* n . ) can be 
written: (EQUAL (*GPROD A1 (FI G H Al) (^SUCCESSOR N) H) (*PROD (*GPROD A1 

(FI G H Al) N H) (*SUB Al (Fl G H Al) (SUCCESSOR N)) H)). This is an instance 
of the general statement (EQUAL (*GPROD A8 A.9 (SUCCESSOR N9) A) (*PROD 
(*GPROD A8 A9 N9 A) (*SUB A8 A9 (SUCCESSOR N9)) A)), where A8, A9, N9, and A 
are (free) variables. It is not necessary to indicate in some way that A8 
must match a subexpression of whatever expression A9 matches, for this will 
automatically be the case in any well-formed use of *GPROD. 

Together with the preceding general statement, the identity (EQUAL 

(*GPROD A8 A9 1 A) (*SUB A8 A9 1)) gives an inductive definition of *GPROD. 

Using such a definition, it is reasonable to consider such theorems as 

f 1 (a 1 ...a n ) = f 1 (a 1 )...f 1 (a n ) for a homomorphism f^ or (a^-.a^ 1 = 

a " 1 ...a " 1 . Both proofs are exactly the same in structure, step by step, 
n 1 

Each is a natural use of induction, and each requires an additional hypothesis. 
For the first, this hypothesis is as follows: (EQUAL2 (Fl G H (*SUB A8 A9 N9)) 
(*SUB A8 (Fl G H A9) N9)). This is an explicit connection between two legal 
notations, according to these conventions of notation, for expressions such as 
fi (ai)• Hius there is actually still a need for a schema; in this case a 
schema to the effect that P[(*SUB A8 A9 N9)] = (*SUB A8 P[A9] N9), where P is 
any of a fairly large class of terms. 

Leaving this incomplete discussion of the problems of notation, the 
question of the implementation of the method of mathematical induction will 
now be considered. The greatest difficulty here is an obvious one how to 
decide algorithmically when to attempt a proof by induction. This decision, 
including the identification of the specific variable on which the induction 
is to be performed, is not an easy one. Surely one condition which must al¬ 
ways be present in a theorem which is provable by this method is the appearance 
of a term which is defined by a definition which is inductive in form; i.e., 

of the form "X, Y,..., Z are special instances of a _, and if A is a-, 

the element given by the (usually simple) operation cp on A (or on A and some 
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other _'s) is a_For instance, a common example is the positive 

integers, given by "1 is a positive integer, and if n is a positive integer, 
n + 1 is also a positive integer." *GPROD, the term discussed above, has an 
inductive definition. 

While the presence of a term that is inductively defined is a necessity 
for the use of induction, it is certainly not true that use of induction is 
appropriate in all theorems which contain mention of such terms. Many theo¬ 
rems involving finite groups, for instance, are not proved by induction on the 
order of the group. To be short and to the point, a method has not been found 
to enable ADEPT to reasonably decide when to use induction. 

Once such a decision is made, there is little further trouble. A super¬ 
visor along the lines of ISOLVE has been written which, when asked to prove 
some proposition P(n), asks ADEPT to prove P(l) and P(n) ==$> P(n'). This suf¬ 
fices to handle most instances of induction encountered in elementary group 
theory. In general, more freedom is needed to specify the basic case, and a 
non-rigid concept of successor is needed. 

Using the supervisor just described, NSOLVE, a user may decide that a 
proof should be done by induction, and have it done by machine. The two the¬ 
orems mentioned earlier in this chapter are provable by NSOLVE, as well as the 
simple fact that a^e G ==> a^e G for any semigroup G. Using the same guide¬ 
lines for notation described above, NSOLVE can be given problems involving, 
say, finite intersections of sets. For example, consider the problem that the 
intersection of any finite number of subgroups is itself a subgroup. This is 
done easily by NSOLVE if the lemma stating that the intersection of two sub¬ 
groups is a subgroup is known to it. It seems reasonable to assume that this 
lemma would be present as a disjunct of the sufficient condition for subgroup 
available for use on any non-trivial problems. (The proliferation inherent 
in such assumptions will be discussed in the next chapter.) Given this lemma, 
only one extension had to be made to ADEPT. This was to have the search which 
sees if a line about to be put on table II is already on table I take into 
account (free) variables as arguments of terms on table I. That is, a 
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statement of the form P^), where a^ ia a variable, on table I carries the 
force of its universal generalization, and therefore should suffice to verify 
any statement P(aj) being put on the proof tree. Heretofore, all statements 
put on table I with variables happened to be either implications or equalities, 
and thus a simple check for equality of two statements, one on table I and one 
one table II, was sufficient (given that EQUAL and EQUAL2 were considered 
identical), since the scan would discover other possible inferences. In this 
problem, however, a table I statement (SUBGROUP (*SUB A A N9)) with (free) 
variables A and N9 has to cause verification of such lines on the proof tree 
as (SUBGROUP (*SUB H H 1)). Such an extension to ADEPT is clearly necessary 
and desirable, and can be implemented in a manner so that it will not increase 
running time significantly. 

The preceding paragraphs have mentioned only very simple problems prov¬ 
able by induction. Hie following discussion is of a considerably harder the¬ 
orem. Included here because the proof requires induction, this theorem's 
discussion will also serve to illustrate the problems that will arise when 
definitely more advanced theoresis are given to mechanical proof procedures. 
Truly a "Pandora's box catastrophe" is very near, and only inspired heuris¬ 
tics will ward it off. 

The theorem is that every finite group has a copposition series , and 
first, a proof of this is outlined, in order to make the following comments 
more intelligible. A composition series of a group G is a series of subgroups 
(Aj,..., A r ) of G such that Aj^ - {e G J, A fl - G, A^ is normal in A t and Aj/Aj ^_ l 
is simple for i - 2,..., n, and all the A^s are distinct. To aid in the proof 
is the lemma that A/B is simple (has no non-trivial normal subgroups) if and 
only if B is a maximal normal subgroup of A. Proceeding to induct on the 
order of G, the basis step is completed by demonstrating that ({e^}) is a 
composition series of length 1 for G if G has order 1. Assuming that any 
group of order s m has a composition series, a group G of order m + 1 is shown 
to have one by considering its maximal normal subgroup H. H must have order 
s: m, and therefore has a composition series (A^,..., A n ), where A q “ H. Hien 
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it can be shown that (A^,..., A ? , G) is a composition series for G. This 
completes the inductive step and therefore the proof. 

Mow consider just a few of the details glossed over in the above outline, 
which cannot be omitted in a machine's proof. The definition of a maximal 
subgroup H of a group G includes a statement that the order of H, o(H), is 
strictly less than o(G). To conclude from o(G) * m + 1 and o(H) < o(G) that 
o(H) s m requires an explicit step, using one of the numerous relations con¬ 
necting <, and >. Certainly these relations cannot be given to ADEPT 

as lemmas, but must be built (or "compiled") into the program, and in a way 
that will not cause proliferation of effort. Perhaps this can be done not by 
special-purpose matching routines for Polish notation expressions, but by a 
subroutine built around the use of the linear "lattice" model of the integers. 
Another step left out of the proof is one which might be given as a lemma for 
this theorem, and that is that every finite group G such that 1 < o(G) has a 
maximal normal subgroup. (How would ADEPT prove this innocent fact?) Another 
detail requires that the definition of order of a group state that a group of 
order 1 contains one element, and if the definition does not specify this 
element to be the identity, ADEPT must be able to prove the admittedly trivial 
fact that it is the identity. 

In addition, demonstration of a candidate for a composition series in¬ 
volves a use of existential quantifiers which is not among the special cases 
which SOLVEX can now handle. This, of course, will be a frequent occurrence 
as new types of theorems are proposed for ADEPT, and some of the necessary 
extensions will be more difficult than others. 

It is the author's hope that the preceding discussion will clearly illus¬ 
trate the difficulties and considerations inherent in proofs of more complex 
theorems. No solutions have been delineated, partly because it is the author's 
contention that the harder theorems introduce radically different types of 
reasoning processes than those used in the types of theorems for which ADEPT 
was constructed. 

Mostly just to prove that it could be done, even though making use of an 
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extension of SOLVEX written to cope with only the above theorem and making use 
of a "loaded" definition of composition series, a version of the preceding 
problem was formulated which NSOLVE successfully proved (with 26 lines and 
using 33 seconds of machine time). The statement of the problem is given here 
in mathematical notation, and the translation into Polish notation follows the 
spirit of the previous discussion on notation for series, iterated products, 
and the like. 

A composition series is defined for this purpose by the inductive state¬ 
ment: B = {e } ==> (B) is a composition series of length 1 for B; if B has a 

maximal normal subgroup and (A^,..., A^) is a composition series for it, then 

(B.,..., B ) is a composition series for B, where m = n + 1, A. = B. for i < m, 
1 m i ■*- 

and B = B. The theorem itself is given as a conjunction of lemmas, followed 

m 

by the conclusion: [G is a group and o (G) ^ n] ==£> G has a composition series. 
NSOLVE is told to induct on n. The lemmas used are: 

i) [A is a group and o(A) ^ 1] ==> A = { e A l J 

ii) A is a group =^> [A has a maximal normal subgroup 
which is itself a group, and [o(A) s; m + 1 ==> the 
order of the maximal subgroup of A is S m]]; 

iii) A has a composition series ==> there exist an integer 
m and subgroups B^ such that (B^,..., B^) is a 
composition series for A. 

Even these specially chosen statements caused difficulties. In particu¬ 
lar, it was discovered that certain conjunctions on the proof tree were such 
that it made no sense to attempt to prove one conjunct before the other was 
established, and a provision was introduced to flag such a conjunct as "not 
discarded but not to be considered until such and such a time". This was 
crudely done, and is best not described in detail! 

Before embarking on the next chapter for a final discussion of the future 
of mechanical theorem-proving as revealed in the light of the ADEPT program, 
one other example will be considered. Much of the reasoning used in the types 
of theorems which ADEPT encounters is applicable to problems previously given 
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to "advice-takers". In particular, an investigation was made to see what 
modifications would have to be made to ADEPT to solve a version of the MIKADO 
problem, originated by Safier^^ and discussed by Slagle. It turns out 

that very few are necessary. The access to tables of definitions and suffi¬ 
cient conditions is blocked, for advice-taker problems are stated in 
self-contained packages. Koko, Nankipoo, Katisha, and Mikado are declared to 
be variables (it does not matter which kind!), and one extension is made to 
SOLVEX, allowing an expression of the form ( 3 a ^)••• ( 3 a n ) p >•••> a n )> f° r 
some expression P which is a single term followed by its arguments, to be 

"solved" if a statement P^,..., b ) is on table I. The problem can then be 

proved by ADEPT if stated as follows: 
hypotheses: 

i) (Unmarried*female Katisha) 

ii) (Unmarried*male Koko) 

iii) (Not*think*dead Mikado Nankipoo) =*0 (Can*stay*alive Koko) 

iv) (Can*appear*safely Nankipoo) ==> (Can*produce Koko Nankipoo) 

v) (Not*accusing Katisha Nankipoo) ==> (Can*appear*safely Nankipoo) 

vi) (Not*claiming Katisha Nankipoo) ==»> (Not*accusing Katisha 

Nankipoo) 

vii) ( 3 a L ) (Can*preduce a x a 2 ) -*t> (Not*think*dead Mikado a^) 

viii) (Married Katisha) ==> (Not*claiming Katisha a^) 

ix) ( 3 a P (Can*marry a^ a,,) =*> (Married a 2 ) 

x) Oa L ) (Can*propose a x Katisha) ==£> ( 3a^ (Can*marry a ^ Katisha) 

xi) (Unmarried*female a^) & ( 3 a ^) (Unmarried*male a^) ==<> (3a^) 
(Can*propose a^ a^) 
conclusion: 

(Can*stay*alive Koko) 

In the above, a^ and a ^ are assumed to be variables; i.e., the first six 
hypotheses form the first conjunction of input, and the last five hypotheses 
form the second. 

This statement of the problem should be compared closely with that given 
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in Slagle. ^ The propositions involving causality used in Slagle's proof 

were not used with ADEPT, so it is not surprising that ADEPT's proof is 
shorter; in fact, it is much shorter, taking only 14 seconds instead of 
Slagle's 5.7 minutes. But ADEPT is not an advice-taker in a general sense, 
so the preceding comparisons are not too cogent. It suffices to say here 
that ADEPT can handle at least some advice-taker problems. In Appendix I, 
a more detailed discussion of advice-takers and how they differ from ADEPT 
will be given. 
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CHAPTER VIII 


FUTURE POSSIBILITIES AND CONCLUSIONS 


It Is time to evaluate the ADEPT project and discuss possibilities for 
future work uncovered through insights and experience obtained from the pro¬ 
gram. To do this to best advantage requires a restatement of the purposes 
for which ADEPT was created. Primarily, the goal was to obtain a program 
which could handle a significant number of theorems of elementary group the¬ 
ory. Needless to say, these theorems were to be drawn from the simplest 
results, the foundations of the subject. These seem to fall into four main 
classes: i) those which require "constructions", such as the proof that a 
left identity is also a right identity, ii) those which follow by straight¬ 
forward inferences from basic concepts, iii) those which depend to a large 
extent on knowledge of simple facts in number theory, such as easy results 
regarding finite groups, and iv) those which serve as illustrative examples. 
It was decided to use theorems of the second type, on the assumption that the 
deductive reasoning required to handle them would be most generally applicable 
to all kinds of theorem-proving. 

As a matter of fact, consideration of the development of the simple proof 
that the kernel of a homomorphism is a subgroup of the domain of that homomor¬ 
phism was instrumental in defining the basic structure of ADEPT. Subsequent 
consideration of numerous theorems of the same type led to the growth of ADEPT 
to its present form, complete with a number of special-purpose heuristics. 
Indeed, the limited goals for ADEPT as a program have been met, for nearly 
one hundred theorems of group theory have been proven by this computer algo¬ 
rithm, and the program has sufficed to provide legitimate evaluation of vari¬ 
ations in the algorithm and their effects. 
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It may be objected that the proofs produced by ADEPT are sometimes inef¬ 
ficient, not to mention that some problems of the type that is ADEPT'S spe¬ 
cialty "stump" the program completely. In reply one has only to note that any 
routine which can produce proofs of all the various facts that ADEPT has es¬ 
tablished in consistently less than two minutes of computer time per proof 
cannot be seriously inefficient. (The isomorphism theorems if considered as 
three or four "proofs" each conform to this statement.) This is particularly 
cogent when one considers that ADEPT is written in LISP 1.5, a language not 
noted for execution speed. As for the similar problems with which ADEPT cannot 
cope, they are not numerous. Indeed, most have been discussed in earlier 
chapters, on the assumption that examination of shortcomings is more instruc¬ 
tive than perusal of successes. The fact remains that the successes far out¬ 
number the failures. More importantly, the class of theorems for which ADEPT 
was designed has been essentially exhausted in the course of this project. 

This fact has two important consequences. One is the fact that improvements 
made to ADEPT in order to enable it to prove those theorems of the same type 
which it cannot prove would not result in a program which could prove many 
more theorems. The other is that refinements designed to increase efficiency 
could only be used on the same theorems, which do not now require prohibitive 
amounts of effort. 

More serious sis the complaint that, though ADEPT can prove an impressive 
number of theorems, many must be stated in a "correct" manner in order for the 
program to be successful. In many instances this complaint is, in the author's 
opinion, not valid. In particular, it is maintained that a user can be reason¬ 
ably asked to exercise care in deciding upon the form of statements presented 
to ADEPT, as least at this stage in the art of theorem-proving. For instance, 
choices between asterisked and non-asterisked notation, or between the various 
logical constants for equality are often critically important, and the user 
has a responsibility to aid ADEPT in this heuristic matter. The complaint is 
valid, however, in the case where the number, and not the form, of the hypoth¬ 
eses is in question. The user cannot be expected to know the minimal set of 
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hypotheses needed for a proof. Thus this is a definite shortcoming of the 
ADEPT program. 

Changes designed to ameliorate this failing could be tested on the same 
theorems which ADEPT has already considered, by making use of the enormous 
number of possible ways of overspecifying the hypotheses to these problems. 

This is the case even if only "natural" unnecessary assumptions are introduced. 
But the weakness of ADEPT in coping with overspecified theorems is an indica¬ 
tion that more serious difficulties will arise when more difficult problems, 
based on a broader base of known concepts, are considered. For instance, the 
introduction of numbers and their associated properties could complicate a 
proof considerably. Add to this another inefficiency which has been tolerated 
until now but which must be faced in the near future, namely excess branching 
due to the associativity axiom, and a good case has been made for conducting a 
full-scale investigation of more efficient theorem-proving with an eye to a 
much larger class of problems. 

How, then, can such difficulties be overcome? Can it be by additional 
special-purpose heuristics, or by some general planning heuristics, or by an 
entirely different and more appropriate algorithm? The answer, as is so often 
the case, is probably a combination of the possible courses of action. Still, 
it seems that the most efficacious improvement would be the introduction of 
some kind of planning . This could take a variety of forms. In fact, some 
planning is already present in ADEPT. HOMQMF effectively delineates a plan to 
be followed to attempt to verify certain equalities (those given by FEQUAL). 

On a larger scale, ISOLVE represents a plan for approaching an isomorphism 
problem. Similar plans could be developed for other special subclasses of 
theorems or types of lines on the proof tree. One possibility is a special 
executive like ISOLVE designed for closure problems. A closure problem is 
one where, assuming a variable or variables are members of some set, it is to 
be shown that a certain function of those variables is again a member of the 
set. Showing sets to be subgroups or normal are problems of this kind. As 
was seen in Chapter V, efficiency difficulties have occurred in such theorems, 
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and a plan incorporated in a supervisor might be an answer to such troubles. 

To resort in this manner to separate routines for each kind of problem 
is an abandonment of any hope of developing a general-purpose problem solver, 
except for a program to perform the very trivial deductions which form the 
core of most proofs. Such despair may be justified, but this cannot be argued 
conclusively at this date. For one thing, there are more general ways to 
attempt planning. One such possibility would not be hard to try with ADEPT, 
and probably should be tried soon. This particular planning heuristic will 
now be elaborated upon in some detail. 

In Chapter III the phrase "explore consequences of all terms..." was 
used, to indicate a call to SCANW to match against lines on the proof tree 
all instances of definitions of the terms in question as well as. all other hy¬ 
potheses and accumulated "knowledge" on table I at the time of the call. In 
the early stages of a problem this amounted to a planning heuristic, for due 
to the selective placement of entries on table I, very little was on table I 
except entries associated with the terms in question. Thus the "plan" was to 
apply to a line on the proof tree only facts known about terms, etc. of that 
one particular line. As the proof progressed, and more entries appeared on 
table I, this heuristic gradually "disappeared", giving way to a procedure 
of a much more "brute-force" character. Why not employ this heuristic at all 
times, thus incidentally eliminating the need for selective placement of 
entries on table I? This could be done by "indexing" all table I entries, 
according to their origin. Obviously there would be the original hypotheses, 
and the lemmas which were added during the proof, but more importantly, those 
entries which were definitions of terms could be "tagged" by that term, and 
singled out from table I whenever that term was spotted in a line of the proof 
tree. Thus for every line of status POT, when it was scanned table I could be 
divided into two parts — a select part including all definitions of terms or 
constants in the line being scanned (and perhaps the original hypotheses), and 
the remainder of table I. Clearly the select subset would be used alone by 
the scan at first, and if no success or progress resulted, possibly but not 
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necessarily the remainder would be considered. 

In conjunction with the changes now being suggested, two details should 
be implemented. One concerns a more involved check of the constants of a line 
being examined. At present, for each constant of the line, a search is made 
through table I for entries which define it. To be precise, a constant A is 
defined by an entry of the form (TERM A ...), and the resulting action is the 
placement on (the select portion of) table I of the proper instance of the 
definition of TERM. This procedure handles set and function constants ade¬ 
quately, but very seldom provides any information regarding constants which 
are members of sets. To remedy this, the procedure could be supplemented by 
a search of table I for terms defining not only the constants of the line of 
status PNT, but also all set constants A from table I entries of the form 
(MEMBER A1 A), where A1 is a constant of the line of the proof tree being 
examined. (For asterisked notation this procedure would put on (the select 
portion of) table I an instance of the definition of *TKRM when A1 was found 
in an entry of the form (MEMBER Al (*TERM ...)).) This would provide a more 
complete determination of which entries of table I are relevant to a given 
proof tree line of status PNT. 

In addition, it is suggested as a result of experience, that certain 
entries of the select portion of table I be given even higher priority. This 
might be too difficult to implement to be practical, but the idea is this. 
Consider the case where a line n of the proof tree has given rise to a reduc¬ 
tion n^ due to an application of detachment from an implication of table I in 
logical class m. Suppose further that other table I entries in the same log¬ 
ical class could have caused substitutions in line n, if this were not pre¬ 
vented by the restriction described in connection with "progress heuristic" 

B. The suggestion is that if the same "Inhibited" substitutions are now pos¬ 
sible in a line of the proof tree which is either n^ itself or a reduction of 
n^, that these should be done first, and given a definite priority. As an 
illustration of this, the reader is urged to refer back to Problem V-C, and to 
note that Implementation of this suggestion would remove the inefficiency 
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associated with that proof. 

The heuristics just described, by analyzing more completely the content 
of a line of the proof tree, including, in the last suggestion, an element of 
analysis of how the line originated, clearly would implement a greater degree 
of "awareness" to the program, so that it could be maintained more cogently 
that ADEPT would be performing as though it knew where it was in a proof. On 
a more prosaic level, proofs would run faster, if only because just a subset 
of table I would be used by SCANW except in unusual cases. Some proofs would 
no doubt be shorter from the point of view of the number of lines on the proof 
tree, but it is less clear that increased efficiency would manifest itself 
noticeably in that manner. Another important advantage would be gained 
namely that the separation of a select portion of table I before scanning 
would enable ADEPT to cope successfully with problems involving a longer total 
table 1; i.e., problems with more hypotheses or problems involving a broader 
base of concepts. There is no reason to believe that single lines of the 
proof tree in such problems would have more terms and constants than at pres¬ 
ent; thus the size of the select portion of table I for any given line should 
remain small and manageable. 

While the previous heuristics would enable ADEPT to handle more assump¬ 
tions, hypotheses, etc., they do nothing to alleviate a similar problem — 
more branches on the proof tree. As theorems become more complex, and ADEPT 
acquires a broader base of "knowledge", lines of the proof tree will have 
greater numbers of reductions. One example of this was alluded to briefly in 
the last chapter — sufficient conditions will have to be disjunctions with 
many clauses. Under these conditions, it will be impossible to expect ADEPT 
to consider reductions of lines in the order of their generation, as is pres¬ 
ently done. Some choice will have to be made, on the basis of the particular 
context of the theorem at a point in its proof. One isolated suggestion was 
made in the preceding discussion concerning a proposed priority for substitu¬ 
tions "delayed" by prior applications of detachment. A crude choice could be 
based on length or complexity of a reduction, with "simpler" reductions being 
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processed first. Such a heuristic might work in some cases, but it is the 
author's opinion that any such completely syntactic heuristic would have lim¬ 
ited effectiveness. Perhaps it would be best to use a complexity heuristic 
only in cases where one alternative is dramatically simpler than the others, 
as sometimes happens when a "correct" substitution results in a "collapsing" 
of a lengthy expression to a very simple one. 

Other possible criteria for ordering reductions of a line are based on 
the history of the reductions. For instance, since generation of reductions 
by detachment has been seen to be correlated with progress, perhaps reductions 
generated in this manner should be considered first. Another possibility 
which may have a desirable effect is to keep track of the logical class of 
the table I entry which is used in generating each reduction of a line on the 
proof tree. Then a list of all logical classes of table I entries used in 
the steps from the head of the tree to any particular branch would be avail¬ 
able. (When an implication is split and the reduction is an instance of the 
consequent of the parent line, there is no associated logical class, but 
neither is there any other reduction necessitating a decision.) Given this 
history of a line, priority could be given to reductions generated due to 
axioms, etc., in a new logical class, or in a little-used logical class, or 
perhaps in a logical class that had not been used recently. This would be a 
manifestation of the heuristic stating that all the hypotheses may be needed 
for a successful proof. 

Another suggestion is to make use of a grouping of terms into classes 
according to their generality. For instance, subgroup is probably the most 
general term which defines a set in group theory. In contrast, an inverse 
image can be considered to be a fairly specific set. With such a grouping, 
which would not have to be too refined, preference could be given to reduc¬ 
tions generated using table I entries obtained from definition instances of 
the more specific terms. The rationale behind this proposal is shown in 
many of the examples of the earlier chapters. Many theorems involve subgroups, 
for instance, but the presence of the instances of the definition of subgroup 
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must not cause a lot of extra branches, as it presently does in ADEPT. So 
this is a heuristic which might help the program to cope with overspecified 
problems and problems with many hypotheses. 

Some of the above suggestions may be futile hopes. One important fact is 
that because of this project, it is or may soon be possible to test such heu¬ 
ristics. Using ADEPT or a slightly (not greatly) improved ADEPT and the more 
difficult of the theorems already proved by ADEPT along with some of a slight¬ 
ly harder nature, it should be possible to obtain significant evaluation of 
the effectiveness of such schemes, and of different combinations and prior¬ 
ities in combinations of such schemes. 

Incidentally, the worth of some of these proposed heuristics will vary 
according to the degree to which a hypothesis is liable to be necessary. For 
simple problems, this means that techniques used to cope with theorems stated 
with deliberate "red-herring" hypotheses will vary from those used for more 
ideally stated problems. For harder problems, it means that because of the 
larger number of hypotheses per problem, and therefore the lessened likelihood 
that any one hypothesis will be "correct" for a given step, and because of hy¬ 
potheses included due to uncertainty over their relevance, different criteria 
for evaluation may be needed than were optimum for simpler problems. To give 
an example, the suggested "approval" for use of axioms of varied logical class 
is obviously a heuristic which could lead to wasted effort in the presence of 
irrelevant hypotheses. 

A couple of other details involving ordering of reductions are of more 
certain usefulness. The MODEL heuristic can be applied to lines of the main 
proof tree, not to accept or completely reject lines as it does for those of 
status ST, but to give an indication of the likelihood of proving a reduction 
of the form a^e A. And it hardly needs to be mentioned that when one reduc¬ 
tion happens to be a conjunction, which will itself be of status NILL, that 
this branch should be ordered according to the worst evaluation of the two 
co-conjuncts. Such pessimism is only common sense since both conjuncts would 
have to be established in order to verify their predecessor. 
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It should be noted that adoption of schemes for ordering reductions 
raises questions about the order in which the total proof proceeds. Some 
heuristics would appear to decrease the need for complete scans, but if SCANW 
is not called often, a new procedure will be necessary to adequately process 
lines of status ST, the subordinate trees. It will be necessary to specify 
when to end processing of a selected reduction. If processing is ended in the 
same way as that of a line of status PNT is terminated at present, where does 
the program go next? The answer nearest to the spirit of the present version 
is illustrated as follows: Suppose line (4), say, has just been processed, 
and the next line of status REL able to take on status PNT is line (6). Per¬ 
haps line (6) is a reduction of line (3), and another reduction of (3), say 
line (9), is of higher priority. Then simply interchange lines (6) and (9) 
and proceed as usual. 

Some other heuristics which can properly be called planning heuristics 

are suggested by features of previous work in problem-solving by computer 

which were not included in ADEPT. For instance, the difference-operator tech- 

(15) 

niques of Newell, Shaw, and Simon v have an obvious application for the 
establishment of identities. For example, when an equality requires a switch¬ 
ing of constants, as in a proof that a set is abelian, the axiom concerning 
the inverse of a product may be useful, as in Problem V-E. While it would 
seem Impractical to develop a complete GPS-like routine to handle such steps, 
certainly some sort of comparison between halves of an equality could be 
developed and used to some degree in the choice of the next step to be made 
by ADEPT, as well as a means of evaluating progress. A more specific heuris¬ 
tic is suggested by a particular example in one of the GPS papers.^ ^ There, 
planning is done by "abstracting" the problem; since the domain of the example 
is the predicate calculus, this could be done by ignoring connectives and the 
order of the variables. ADEPT has need of such an approach in its treatment 
of associativity. Here the abstracting would be accomplished by ignoring 
grouping; i.e., "remove the parentheses". There are strong reasons for for¬ 
mally considering composition as a strictly binary operation, for this 
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simplifies the task of formalizing and programming group-theoretic algorithms 
tremendously. But it has become obvious that at certain times in some prob¬ 
lems, ADEPT must be able to "stand back" and consider the lines of the proof 
tree in this more abstract form, thus making optimum use of the known hypoth¬ 
esis of associativity. Surely it would not be difficult to decide upon a 
precise form for this special-purpose planning heuristic and then to implement 
it within ADEPT. 

What are the implications of the implementation of planning heuristics 
for the methods of determining "progress" in ADEPT? Is heuristic B, which is 
presently in use, suitable for a program altered in ways such as have been 
considered above? The answer is that heuristic B is not sophisticated enough, 
but more constructive comments are not as easy to make. Of course, if a pri¬ 
ority scheme is adopted to order reductions of lines, the method of assigning 
priorities will probably also be of some application for a determination of 
progress. For instance, if terms are classed according to specificity, gen¬ 
eration of a reduction of a line by detachment using a table I line arising 
from the definition of a very general term may well not be considered grounds 
for declaring "progress" or for putting a line of status REL into status RELl. 
Conceivably, with good enough planning and ordering heuristics, there would be 
no need for status RELl. Or if determination of order of reductions depended 
strongly upon which were generated by detachment, perhaps a progress heuristic 
should not be based so strongly on application of detachment. It does seem, 
however, in the light of results obtained so far with ADEPT, that uses of 
detachment must be given some kind of special consideration in either planning 
or evaluating steps in any extension of ADEPT. 

Of course, if special-purpose executives, like ISOLVE, are constructed, 
as was suggested above for closure problems, the need for lower-level planning 
and evaluation of progress will decrease markedly. In fact, since a large nunw 
ber of theorems considered thus far with ADEPT are closure problems, it might 
be a worthwhile short-term project to develop such an executive in order to 
evaluate the special-purpose approach. In contrast, development of planning 
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heuristics and more sophisticated progress heuristics should be done in light 
of more theorems than those considered so far in the course of this project. 

It should also be noted that other existing heuristics besides those 
connected with "progress" may be rendered unproductive by the adoption of 
planning techniques. Just as an example, the heuristic of substituting in 
only one half of an equality on the proof tree may be found to be of no fur¬ 
ther value. As in all this discussion, precise statements about effects can 
not be made until a particular combination and implementation of some or all 
of the possible new heuristics is adopted and fixed. 

As mentioned at various times in this report, part of the effort of ex¬ 
tending ADEPT will have to be devoted to development of specific subroutines 
to augment the existing program. These are not heuristics, but merely capa¬ 
bilities for different types of problems. SOLVEX will have to be able to 
handle expressions of the form (3a^)Pa^ for a broader class of expressions 
Pa^, including expressions themselves headed by an existential quantifier. 

The need for a routine to discover "constructions" or expansions has been seen 
in a number of examples. Such a routine will not be easy to develop. It will 
have to include heuristics, quite possibly ones very reminiscent of Newell, 
Shaw, and Simon's GPS. This routine will govern those cases where equal¬ 

ities expressed using EQUAL (including those handled by the simplification 
routines associated with PUT0N2) should be applied in the unnatural direction. 
It should also be capable of either performing or setting up intermediate 
steps so that ADEPT can perform substitutions such as a ^ a 2 ^ ( a 2 a i ^ ^> 
which were seen to figure in some of the theorems covered in Chapter VI. 

As difficult as it will be to devise a "construction" subroutine, an 
even more difficult task will be to decide algorithmically when to use it. 

Here the realm of the unexplored has been reached. No longer does the orien¬ 
tation of ADEPT seem so productive, but still it is infinitely preferable to 
the orientation of the complete predicate calculus procedures. Here open, 
creative minds are needed to cross a gap of ignorance. Similar situations 
have come up before in this report. When should induction be used? What 
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procedure can isolate the variable on which the induction will take place? 

For proofs by contradiction, efficiency virtually demands prior selection of 
the hypothesis most likely to be contradicted by the consequences of assuming 
the denial of the conclusion. Even more difficult is the question of when to 
abandon proof of a proposed theorem and try to construct a counter-example for 
it. (Incidentally, a good "give-up" heuristic could conceivably make it 
practical to try all of the methods of proof on a given problem, thus elimi¬ 
nating the need to choose between proof by induction, contradiction, etc., 
without increasing the total amount of effort Involved by a very high factor.) 
And ultimately, could a computer program generate likely candidates for 
theorems? 

Returning from this dash into the world of the relatively distant future 
of theorem-proving by computer, consider problems of only slightly greater 
difficulty than those already done by ADEPT. In particular, consider briefly 
how the concepts of orbit of an element and order of an element are naturally 
used in the proof of the Sylow theorems, which need only mention order of the 
group in their statements. This is not an isolated example; to prove more 
advanced theorems one must know what method to use, and the method often in¬ 
volves introduction of other concepts. In part, one learns from experience, 
but if only from experience the result is a group theorist like the author, 
who is unable to prove a theorem unless he has seen the proof of a similar 
one! But how does the mind of the creative mathematician work? Could a 
scholar outline an algorithm suitable for a computer? Is it not more likely 
that a programmer attacking this problem will meet the same frustration as 
Dr. A. L. Samuel met when he found that expert checkers players did not under¬ 
stand how they played the game? 

Thus the author firmly believes that radically different approaches are 
used in the thought processes of human mathematicians as they work on harder 
theorems, and therefore different algorithms will be needed to prove harder 
theorems by computer. Indeed, though it could be broadened to prove more the¬ 
orems, ADEPT is already to the point where its orientation has approached the 
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limit of its productiveness, and fresh ideas are needed in order to produce 
efficient proofs of harder theorems. There will, however, be need for ADEPT, 
or rather for an improved ADEPT, in future problem-solving programs no matter 
what their organization, for harder theorems will have sub-theorems which are 
precisely the type of problem for which ADEPT was constructed. In addition, 
part of the reasoning process of harder proofs, particularly once a general 
method of proof has been chosen, will involve just those very logical infer¬ 
ences that ADEPT can handle. 

In summary, what has been done is this. Starting with a desire to capture 
in an algorithm suitable for a machine the human thought-processing used in 
elementary group theory, a program was developed. Before this development 
could be accomplished, a decision had to be made between two possible orienta¬ 
tions — the "mechanical" and the "heuristic". The former had been considered 
more extensively in previous projects. On the surface it seemed that a com¬ 
binatorial, manipulative approach with a simple but powerful theory behind it 
was ideally suited to a computer program, as well as providing the satisfying 
theoretical "completeness" which is a consequence of the theory. But the pre¬ 
vious efforts had shown that what seemed ideal in theory was not at all ideal 
in practice, and in fact discouraging barriers were encountered in the realm 
of efficiency. At the same time, the heuristic approach had not been shown to 
be necessarily superior, but at least it was a viable alternative. Its main 
advantage is that the programmer can avail himself of human experience in a 
direct way. By introspection and investigation of mathematical reasoning as 
seen in the literature, an attempt can be made to understand how the human 
mathematician is able to reduce what is combinatorially a gigantic problem 
to manageable size. (It must not be overlooked that even this "size" is not 
small when one takes into account the "experience of the ages", the store of 
knowledge and effort of centuries before.) Thus the investigation takes on a 
two-fold interest — not only is there the attempt to construct a working 
algorithm, but there is the endeavor of understanding in part the techniques 
of the brain, and formalizing those steps of logical deduction that are done 
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literally without thinking. 

There is no claim here that what is best for the mind is best for the 
machine. It is certainly conceivable that the optimum way for a computer to 
prove theorems bears little relation to human thought. But at the present 
time it is not known what this might be. One "non-human" orientation has 
already been seen to not be the answer. Meanwhile, progress can be made, both 
in developing algorithms and in understanding the problem itself, by consider¬ 
ation of what people know about what is, after all, a uniquely human ability 
at this time. 

Pointed in this direction, the development of ADEPT began. First and 
foremost, as has been seen, the program has been successful, though this fact 
may have been obscured at times by the discussion of ADEPT'S shortcomings and 
what could be done next. Not only have non-trivial theorems been proved by a 
computer program, but a huge number of insights into the natures of specific 
problems and types of problems as they are approached algorithmically have 
been obtained. Furthermore, heuristics have been discovered and evaluated, 
now that a suitable vehicle for such experimentation is in existence. It will 
be instructive to list briefly, in a single compact list, the heuristics used 
in the course of this project. 

1) Implementation, through the use of specially introduced 
logical constants for equality (EQUAL and FEQUAL), of 
restrictions on substitutions and of different methods 
of processing lines. 

2) Substitutions allowed in one side only of an equality 
(EQUAL or EQUAL2) on the proof tree. 

3) Performance of related substitutions simultaneously, 
implemented through the use of a "logical class" for 
table I entries. 

4) Processing of lines headed by an existential quantifier 
by special cases, as opposed to a uniform procedure. 

5) Selective placement of definition instances on table I, 
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done as terms are encountered in the course of a proof. 

6) Restricted matching allowed for expressions consisting 
of just one free variable. 

7) "Compiled" application of common identities as a line is 
put on the proof tree, sometimes resulting in simplification 
of the line, and other times resulting in additional 
substitution instances of the line. 

8) The MODEL heuristic, allowing rejection of some new sub¬ 
ordinate trees started by an expression of the form 
(MEMBER A1 A), using a "lattice" model of the sets involved. 

9) Various progress heuristics, in particular, heuristics 
A and B, involving consideration of detachment. 

Some of these heuristics have proved more successful than others. For 
instance, numbers 1), 3), 6), 7), and 8) seem to have proved their value con¬ 
clusively, and can be retained in essentially their present form. Others, as 
implied in the preceding discussion of possible improvements, may be found to 
be of less importance or worth. And obviously, new heuristics are still 
needed. 

Though ADEPT never was intended to embody a "complete" procedure, a 
moment's reflection will show that some of the above heuristics further limit 
ADEPT'S theoretical power. For instance, sometimes "progress" is declared 
erroneously, as in the overspecified version of Problem V-A. It would, of 
course, be a trivial matter for ADEPT to be programmed so that once it became 
"stuck", it lifted these heuristic restrictions and redid the problem in a 
more comprehensive manner. (It is a less trivial matter to "know" when the 
program is "stuck"!) But such a recovery procedure is of little interest, as 
is obvious from the original abandonment of a "complete" procedure. A de¬ 
crease in ADEPT'S theoretical power caused by a heuristic is of no concern, 
if the heuristic permits more efficient proofs for more theorems in general, 
where "more", of course, has to refer to a great many more theorems than are 
"foiled" by the proposed heuristic. Certainly the heuristics included in 
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ADEPT conform to this policy. They have enabled ADEPT to perform acceptably, 
and what is more, this report has been candid about those examples which point 
out shortcomings of the heuristics. 

The question can be raised: Why stop here? Many possibilities, both 
immediate and more long-range, exist for continued work. The answer is not 
simply that one has to stop someplace; this is in reality a natural 
break-point. This is not to say that what exists of ADEPT is perfected; it is 
not even to say that the discussion of future possibilities suggests answers 
to all of the problems raised in the earlier chapters. However, as stated 
earlier, no simple alterations or extensions to the program will enable it 
to handle a significant number of new theorems. Quite the contrary; unless 
major additions are created, only better proofs of theorems already provable 
will result. 

Therefore, this project (and this report) comes to an end. Those diffi¬ 
culties encountered and overcame in the course of these efforts can now be 
handled routinely in the future, freeing further researchers in the area of 
heuristic problem-solving so that they may be able to concentrate more clearly 
on the harder problems ahead. 

One final comment should be made. It has been suggested to the author 
by Tim Hart that heuristics developed by experiments such as have been carried 
out with ADEPT may be able to be restated in a form compatible with "complete" 
procedures, and incorporated into them, perhaps to the end that a basically 
combinatorial approach will surpass the basically heuristic, empirical ap¬ 
proach. This is in no way an argument against the ADEPT project. If such a 
reliance on heuristics which can only (or at least more easily) be discovered 
through the more natural orientation to theorem-proving used in ADEPT, can 
then be transferred to a more mechanical program, the dividing line between 
the two approaches will virtually disappear, and advantage will have been 
taken of the best virtues of both. To the author, though, the most important 
contributions will still be the heuristics. Hopefully, ADEPT will pave the 
way for important discoveries of that nature. 
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APPENDIX I 


OTHER WORK IN THEOREK-PROVING 


This discussion of related work in theorem-proving has been placed after 
the body of the report on ADEPT for two reasons. The first is that before 
understanding the approach used in ADEPT it would not be clear which previous 
projects were relevant as background. Secondly, this history can now be sup¬ 
plied with comparisons and comments on the author's contributions. 

The appearance of theorem-proving as a branch of artificial intelligence 
was inevitable. As soon as researchers began to explore the potentialities 
of digital computers for tasks other than numerical computation, and more 
specifically, as soon as non-numerical tasks requiring ''intelligence" were 
seen to be legitimate subject areas for computer programs, artificial intelli¬ 
gence was in existence. It is not the intention of this commentary to define 
the proper bounds of this area of computer science, or to become involved in 
a harangue over the use of the word "intelligence". The fact is that it be¬ 
came possible to conceive of a digital computer, properly programmed, making 
decisions and performing tasks that in human experience necessitated "thought" 
and reasoning of a higher level than merely mechanical operations. Such possi¬ 
bilities were highly exciting. If achieved, computers could become extremely 
powerful and valuable aids, much more so than they are because of their com¬ 
putational capabilities alone. As a by-product, scientists would have a use¬ 
ful model of a class of human mental processes. Consequently, artificial 
Intelligence projects were undertaken. Not surprisingly, the first tasks 
explored in these endeavors contained a large element of mechanical procedure 
and only a small amount of required "thinking". Excellent examples were found 
in games and in the theorems of the early chapters of Russell and Whitehead's 



monumental Principia Mathematlca . Closely related, though not usually put 
under the category of artificial intelligence, was the effort to make rough 
translations from one language to another. 


Work in all these areas became more sophisticated. An admirable achieve- 

( 21 ) 

ment was made by Dr. A. L. Samuel in his mas ter-level checkers program, a 

milestone in artificial intelligence, and an excellent example of a 
special-purpose program designed to do only one task, and to do it well. Pro¬ 
grams for computerized formal mathematics also became more ambitious, and the 
early programs for doing mathematical logic were joined by such successes as 

Gelernter's geometry program and Slagle's symbolic integration pro- 

(23) 

gram. Because of its self-contained nature, at least in the early stages 

of the subject, and its ease of formalization, the theory of abstract groups 
became a frequent subject of theorem-proving programs. But the successes 
were followed by a long series of slight improvements, without any real 
break-through. 

Meanwhile, a number of investigators delineated a problem area of "logir 
cal deductive reasoning", independent of subject matter. Often with ambitious 
claims of generality and applicability, programs were constructed to handle a 
wide variety of questions. Some, as GPS —Newell, Shaw, and Simon's General 
Problem Solver, were actually crude models of human rational thought. By 

necessity, these general programs contained heuristics — procedures designed 
to cope with certain cases or combinations of events in a manageable way; pro¬ 
cedures believed to be of wide applicability but not necessarily guaranteed to 
be always productive. Heuristic, general routines needed to be tested on some 
particular syllabus. Often this syllabus was drawn from the theorems of some 
branch of mathematics. 

In any event, the attempt to prove theorems of formal mathematics by 
computer is not done as an end in itself, but as a step toward the achievement 
of artificial intelligence, in the hope of achieving a much greater usefulness 
of digital computers. At the present day such a hope is far from realization, 
and so work in artificial intelligence continues to concern itself with 
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theorems, games, etc. 

Henceforth this discussion will concentrate only on the area of 
theorem-proving by computer. Progress is being made constantly, and the 
state of the art is no doubt rather more advanced than can be seen from the 
literature, due to the time lag involved in publishing. In particular, pro¬ 
jects are known to be under way at MIT and at Carnegie Tech at this time, and 
undoubtedly other work is in progress elsewhere. However, only what has been 
published will be presented here. 

The fundamental difference between the mechanical and heuristic ap¬ 
proaches to theorem-proving has already been maintained. A familiarity with 
the general organization of a "complete" proof procedure has been assumed, 
and ADEPT itself is an example of the heuristic, albeit special-purpose, ap¬ 
proach. What has not been done is to point out how far other projects have 
gone, and to compare ideas used in ADEPT with some of those used in earlier 
programs. 

Beginning with the mechanical, combinatorial approach, what can be said 
about the capabilities of the many programs of this nature which have been 

written, and what means have been employed to reduce combinatorial explosion? 

(29) 

The most encouraging report is that of Wos, Robinson, and Carson, ' which 
relates that a program (hereafter called the "Wos program") solved Problem 
V-E (a group each of whose elements is of order 2 is abelian) in as little as 
5.18 seconds. The main heuristic used was the so-called "set of support strat- 
egy", which can be described precisely only in terms of a formal logical sys¬ 
tem, but which amounts to giving special consideration to the conclusion and 
special hypotheses (in this case the hypothesis that = e for all in 

the group). Since the proof procedure works forward, attempting to generate 
a contradiction from the hypotheses and the denial of the conclusion, this 
means that the program looked for contradictory sets of statements only among 
sets of statements containing clauses derived from the two lines which were 
singled out. In ADEPT, such a heuristic would essentially say that any proof 
must make use of all special hypotheses, where the user, as in the case of the 
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Hos program, tells the program which hypotheses are to be so treated. 

In the Wos paper, the interplay between the set of support strategy and 
an arbitrary bound imposed on the complexity of statements generated is dis¬ 
cussed. The latter involves a guess as to the complexity of the proof of a 
proposed theorem. Not surprisingly, in the presence of an accurate guess the 
set of support strategy is of little help. But its worth is clear in the 
absence of such a guess, for with the strategy a 37.5 second proof is obtained 
when no bound is specified, while a 411 second proof with a conservative bound 
and no proof at all with no bound is obtained without the set of support strat¬ 
egy. ADEPT'S performance on this problem has already been discussed. Its 
"working backward" elminates much of the need for the set of support strategy, 
inasmuch as most irrelevant lemmas in ADEPT are automatically excluded. It 
was seen that ADEPT could not solve the problem without being explicitly told 
about a consequence of the hypothesis, namely a^ ■ a^ * for all a^ in the 
group. As described in Chapter V, ADEPT proved two versions of the restated 
problem, and one took 22 seconds while the other took 82 seconds. Only 18 
lines on the proof tree were needed in the latter case, as opposed to over a 
thousand for Wos' worst case. In conclusion it should be pointed out that 
this problem is quite a bit more suitable for a combinatorial theorem-prover 
than many which have been solved by ADEPT- 

The Wos program, of course, profited by the experience of its predeces¬ 
sors. It uses a variation of the Herbrand procedure that was formalized by 
(19) 

J. A. Robinson, using a single rule of inference, resolution , which is 
rather well-suited for the task of mechanization. Robinson, in turn (as is 

/ ID \ 

excellently recounted in his 1963 paper' , ), drew upon improvements outlined 
(3) 

by Davis and Putnam and others. All in all, much effort has been spent on 
developing an extremely efficient formalization of a complete proof procedure, 
greatly refining Herbrand's original scheme. For instance, properties common 
to the syntax of contradictory sets have been utilized. But refinements in 

the procedure are not heuristics, and are not even subject-oriented. 

(26 27 28) 

Hao Wang has done a great deal of investigation' ’ ’ ' along similar 
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lines. For instance, he has improved procedures by developing separate algo¬ 
rithms for statements of different syntactic forms; i.e., different patterns 
of quantifiers in prenex normal form. Wang's papers contain the most persua¬ 
sive arguments for the combinatorial as opposed to the heuristic approach. 
Unfortunately, his arguments for the preferability of a sound theory and 
complete procedure seem based on a faith that such an approach can, with ef¬ 
fort, be made successful. No program has been demonstrated to date to support 
this faith. If it is a justifiable hope, Wang's arguments would be hard to 
ignore; if, as this author believes, the hope is forlorn, then the theoretical 
advantages of a complete procedure are irrelevant. 

This concludes an admittedly brief account of combinatorial 
theorem-proving programs. Before a discussion of specifically heuristic 
problem-solvers is begun, mention should be made of the work of a man who had 
no interest in computer programs for formal mathematics, but who nonetheless 
has completely captured the spirit and worth of heuristics in his pedagogical 
approach. Prof. G. Polya's books on problem-solving^ ’ ^ are "musts" for 

anyone who is interested in the procedures used by people while doing "formal" 
reasoning. 

In the field of artificial intelligence, perhaps no researchers are bet¬ 
ter known than Newell, Shaw, and Simon. Their programs — first the Logical 
Theorist (LT) and then the General Problem Solver (GPS)^ ^ —have had 
an enormous impact upon this area of computer science. (Perhaps, as Newell 
himself notes, this impact has been too great, causing a lack of innova¬ 

tion in approaching artificial intelligence.) LT was conceived and implemented 
a decade ago, yet its ideas have reappeared in most subsequent heuristic 
problem-solvers. Partly, this is due to Newell, Shaw, and Simon's emphasis on 
simulation of human behavior, because, being concerned with uncovering models 
of human thought processes, these researchers specified algorithms and heuris¬ 
tics which seem very natural, for they attempt to capture our (the human's) 
way of approaching problem-solving. For a number of reasons, work in 
theorem-proving often turns to draw upon human experience, and in so doing. 
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emulates LT. For Instance, an introduction to the gross inefficiency inherent 
in a blind "working forward" approach as found in the early combinatorial 
theorem-provers leads one to the observation that people often work backward 
from the conclusion, either completely so as in LT, almost so as in ADEPT, or 
at least keeping the goal in mind to guide steps taken, as can be said of GPS. 
"Working backward" is for many problem areas a high-level heuristic, and a 
very effective one for reducing irrelevant effort. It was one of the main 
points made by the LT project. 

Adoption of a "working backward" type of procedure usually involves the 
use of a matching subroutine, and ADEPT has one just as did LT. Now, as then, 
this subroutine accounts for a significant fraction of the effort expended by 
the entire program. Newell, Shaw, and Simon experimented with heuristics 
(the similarity tests) designed to facilitate matching, but had limited suc¬ 
cess. As they pointed out, those possible matches which heuristics can easily 
recognize as not worth sending to the matching subroutine are just those which 
the subroutine itself rejects after a minimal amount of work. In ADEPT, very 
little effort was spent trying to improve the matching process. The only fea¬ 
ture incorporated for this purpose was the special-purpose matching routine to 
handle the checking of a fixed list of common axioms and identities by PUT0N2. 
Here, use of a quick check for key terms common to axioms and the proof tree 
line was sufficient to expedite the matching of these particular statements. 

Particularly on a superficial level, there is a great deal of similarity 
between LT and ADEPT. Both use ad hoc methods chosen to handle a particular 
problem area. Since the "task environment" of LT, propositional calculus, is 
semantically simpler (i.e., of less content) than group theory, it is not 
strange that LT is a less complicated program. Both ADEPT and LT employ 
non-complete procedures. LT seems more formally structured than ADEPT, but 
this is due largely to the nature of the problem area. Still, ADEPT does not 
use "methods", tried in turn on lines of the proof tree. Instead, each axiom 
is allowed to operate on the proof tree line, in turn (or at a special time, 
in the case of the common axioms and identities which have been singled out), 
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in whatever way its syntax permits. Modus ponens plays a prominent role in 
each program, though the specific use of this rule of inference takes different 
forms in each. However, on a more detailed level, again partly due to the 
nature of the problem areas, ADEPT is more resourceful than LT. Not only does 
it contain more heuristics, but it can be extended to include or test other 
special-purpose heuristics which might be developed. It makes more use of the 
context of the problem, as, for instance, in the examination of terms and 
constants of a proof tree line, and in the recognition of table I lines 
defining constants used in the proof, thus enabling instances of definitions 
to be used to better advantage. 

The creators of LT discovered a property of heuristics that also has been 
observed in ADEPT, namely that they enable a program to reach a "plateau" of 
performance, beyond which it is very difficult to progress without very dif¬ 
ferent heuristics. This was mentioned in Chapter VIII as primarily a property 
of the problem area, the author maintaining that harder problems necessitate 
new methods. This differentiation of problems is harder to observe in systems 
oriented around the predicate calculus, and perhaps this was one reason which 
led Newell, Shaw, and Simon to leave the impression that what is needed is a 
more powerful set of general-purpose heuristics as opposed to different heu¬ 
ristics for different classes of problems. 

In any event, new heuristics were (and are) needed, and GPS followed LT. 
GPS is a much more ambitious project, with many psychological implications. 
Intended to be a model of problem-solving in many areas, GPS was tested on 
problems in propositional calculus and trigonometry. Its basic organization 
is much too well known to need recounting here; suffice to say it employs 
certain "goal types" to apply operators that reduce differences between known 
statements and desired statements. The operators and differences must be 
specified and characterized for each problem area to which GPS is directed; 
the methods or "goal types" are fixed, and conform roughly to means-end anal¬ 
ysis. Clearly ADEPT has no similarity to GPS in general organization. Yet 
GPS has been mentioned in passing in this report, primarily in Chapter VIII, 
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because it appears that attempts to remedy some of ADEPT'S weak points may be 
able to profit from insights gained in the GPS work. Comparing present with 
desired results has an obvious analogue in the establishment of identities, 
and a proposed low-level planning heuristic for use with GPS, namely abstrac¬ 
tion of the problem, seems applicable to more efficient treatment of associa¬ 
tivity, as described previously in Chapter VIII. 

While discussing the work of Newell, Shaw, and Simon, a paper of Newell 
and Ernstshould be mentioned as giving a provocative overview of heuris¬ 
tic programming. Its perspective on program organization appears that it 
might be very useful to anyone contemplating new routines for problem-solving. 
While by no means as far-reaching as Minsky's Steps Toward Artificial Intelli¬ 
gence . the paper is quite general, and helps to unite the field, as have 

Minsky's papers. 

Perhaps the project nearest in spirit to ADEPT is the Geometry-Theorem 
Proving Machine of Gelernter.First reported in 1958, the geometry 
machine is a heuristic theorem-prover designed specifically for one branch of 
mathematics. In fact, like ADEPT, it handles a subclass of the elementary 
theorems of its subject, namely theorems involving congruences, parallel 
lines, and equality or inequality of segments and angles. Over 50 such the¬ 
orems were successfully proved by the geometry machine, and it became a use¬ 
ful vehicle for testing special-purpose heuristics. Thus it was the first 
program to successfully handle a significant number of theorems from a par¬ 
ticular branch of formal mathematics. Like ADEPT, it used a "working back¬ 
ward" procedure which was ad ho^ in formalization, and not complete. Even 
some of the particular heuristics used in the two programs are closely re¬ 
lated. Both programs single out certain deductions to be made immediately 
on a proof tree line. Also, both programs make use of a diagram. 

At this point of similarity, the divergence between the two projects 
becomes most clear. Gelernter's geometry machine is totally dependent upon 
its diagramming feature. This is in no way a fault of the program; it is to 
its credit that this semantic model proves so powerful for its problem domain. 
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However, anyone acquainted with group theory will hardly be surprised that the 
semantic model used in ADEPT plays a relatively minor role. Of course, the 
relative importance of one heuristic is hardly a major factor for evaluation, 
but its consequences are, for the geometry machine, due to the success of the 
diagram heuristic, did not have to develop any other means for controlling 
proliferation of effort, and indeed was incapable of handling even the sim¬ 
plest of theorems without recourse to a diagram. With ADEPT, the basic orga¬ 
nization had to be more clever to allow efficient proofs, and, as argued 
throughout this report, whatever success has been obtained in this regard 
reflects progress toward a theorem-prover which "understands" where it is in 
a proof, and is able to make use of context. The formal part of the geometry 
machine has no such capabilities, for they were not needed. Thus both the 
geometry machine and ADEPT have been successful programs for a branch of 
formal mathematics, but ADEPT was forced to contain more sophisticated tech¬ 
niques, and the research involved in their development is more likely to be of 
value in the future. 

The idea of a diagram, or more generally, a semantic model, is a very 
fruitful one, and was first propounded by Minsky.A use for a model was 
found in group theory, as seen in ADEPT'S MODEL heuristic, and there is every 
reason to believe that other subjects will lend themselves to other realiza¬ 
tions of this general idea. Certainly future workers in theorem-proving must 
be alert to the possibility of favorable uses of such a feature. 

The other projects relevant to this report are the general question¬ 
answering systems that come under the heading of "advice-takers". Die 
advice-taker was conceived by McCarthy,^ and it is oriented to the develop¬ 
ment of a system which would be capable of learning and working with any 
subject area, including "everyday situations". To do this, it was designed 
so that it was very general, handling all facts in the same way, and what is 
more, in a rather simple form which was intended to facilitate use of the 
system by many people. Because of this generality, the advice-taker is a 
victim of ambition. Like the combinatorial theorem-provers, it is ill-suited 
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to the introduction of techniques based on context, and heuristics intended to 
become an integral part of the program's structure. Like heuristic programs, 
it lacks formal theory, forcing a reliance on ad. hoc programming which in this 
case is thwarted by the proposed generality of the system. Admittedly, 
McCarthy did not see it in this light; rather the advice-taker was to profit 
by an ability to accept heuristics in exactly the same way as the data base 
and questions. But the method of introduction of statements makes use of a 
variation on formal logic which retains some characteristics of English, just 
as in ADEPT. This means that heuristics must also be stated in this form, 
which appears to be a harsh requirement. In theory, a huge bootstrapping 
operation could be undertaken, but this appears beyond the capacity of present 
sys terns. 

In order to deal in detail with "everyday situations", McCarthy proposed 

( 9 ) 

that formal predicates of ability and cause be introduced, along with 
statements expressing properties of and relations between these predicates 
(such as a statement saying that if A can cause an event a_, and if event a 
causes event 1>, then A can cause event b_). Sample problems proposed for the 
advice-taker were stated in terms of these predicates. In some cases, such as 
the Mikado problem^^’^^ (considered at the end of Chapter VII), the use of 
these predicates was not necessary to express the essential content of the 
problem, as was seen in the version of the Mikado problem posed for ADEPT. 
Still, the expanded version serves as an illustration of a possible way of 
working with a problem-solver of great generality. One should note, however, 
that the character of the problem is not altered by the presence of additional 
predicates and axioms; the result is simply a more complex problem of the 
same type. 

The actual algorithm which is the advice-taker is very simple, and it is 
small wonder that ADEPT has enough deductive power to "answer" versions of 
some advice-taker problems. However, it would be erroneous to claim that 
ADEPT can do anything that an advice-taker can. In fact, two versions of an 
advice-taker have been created, one by Slagle^^ and one by Black, ^ ^ and 
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both have Interesting capabilities not useful for formal mathematics and there¬ 
fore not included (and difficult to insert) in ADEPT. Slagle's DEDUCOM is 
imbedded in the LISP interpreter, and this simple fact allows great flexibility 
in use of symbol processing and arithmetic capabilities of LISP. Introduction 
of even simple arithmetic to ADEPT would be rather awkward. More importantly, 
both advice-takers allow multiple answers to questions, and the solutions of 
problems created by this feature are non-trivial. 

In terms of ADEPT, the ability to provide multiple answers means free 
variables on table II, something which is not provided for at present. Black 
gives an excellent account of the difficulties these variables create and 
their implications for program organization. The matching routines become 
more complex and, as is to be expected, a larger amount of effort per problem 
is needed in order to find all answers. There is no doubt that multiple an¬ 
swer capability is necessary to a general deductive system; it is also true 
that it is an ability not needed in formal mathematics such as group theory. 

Early versions of Black's program fell into infinite loops at times be¬ 
cause they did not check whether a line being put on the proof tree was al¬ 
ready on the tree. ADEPT checks this in PUT0N2, and it does not seem to be a 
time-consuming process, as Black feared. Other loops occurred from axioms 
with hidden pitfalls, like (IMPLIES (NOT (NOT Al)) Al), which-would allow to 
a line A2 on the proof tree the reduction (NOT (NOT A2)), which in turn would 
have a reduction (NOT (NOT (NOT (NOT A2)))), etc. ADEPT encountered a very 
similar difficulty in Problem V-F due to the hypothesis f^(a^) * f^(a^) -»i> 
a^ = a 2 > With ADEPT, the problem was circumvented by use of FEQUAL. Black 
also found the form and order of hypotheses to be critical in some problems, 
as did Slagle. To make deductive algorithms independent of such factors would 
almost necessarily introduce an unbearable degree of inefficiency. 

Black experimented with some heuristics to improve his advice-taker. One 
was a bound on the proof tree by means of various length restrictions. This 
purely syntactic strategy was less than satisfying. He discussed possible 
schemes for stopping or avoiding loops. He also proposed grouping axioms and 
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hypotheses according to their main terms or connectives. This is done in the 
present implementation of ADEPT. For one thing, in order to facilitate 
PUT0N2' s application of common identities, special lists are kept of all 
homomorphisms and factor groups, so that a separate search of table I for 
this information is unnecessary. Table I itself is split into two parts, as 
might be deduced from Figure 4. All the equalities and implications are on 
one part, and only this part is used directly by SCANW. However, such stream¬ 
lining is hardly of crucial importance to the efficiency and success of the 
program. (Warren Teitelman^”*^ has also explored some modifications of Black's 
advice-taker.) 

ftiis concludes the account of various projects related to the ADEPT pro¬ 
ject and how ADEPT contrasts with them. No mention has been made of other 
important areas in which many feel that significant progress must be made in 
order for any large advances to be made in artificial intelligence. One is 
learning and another is organization of data and concepts. ADEPT is not a 
learning program, and would not be a suitable foundation for one. Learning, 
of course, refers to machine assimilation of knowledge, as opposed to in¬ 
creasing the "knowledge" of a program by the addition of more routines by a 
programner. Slagle points out that his DEDUCOM^ ^ (and therefore ADEPT) 
"learns" when given more information, such as a new axiom or definition. In 
a limited sense this is true, particularly from the advice-taker orientation. 
Yet it would appear that real machine learning must involve programmed induc¬ 
tion and generalization or adaptation facilities. 

As for data organization, even less is known on how to proceed. List 
structures have been standard up until now. Indeed, all of the programs men¬ 
tioned in this chapter under the general heading of "heuristic", including 
ADEPT, have been written using list processing languages. Without these 
languages these programs would have been almost impossible to write. Still, 
one wonders if a fresh view toward data organization could be helpful. 
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APPENDIX II 


THEOREMS PROVED BY ADEPT 


1) (GROUP G) 

NIL 

(SEMIGROUP G) 

2) (AND (KERNEL K (Fl G H)) (HOMOMORPHISM (FI G H))) 

NIL 

(SUBGROUP K G) 

3) (AND (KERNEL K (Fl G H)) (HOMOMORPHISM (Fl G H))) 

NIL 

(NORMAL K G G) 

4) (AND (CENTER C G) (ASSOC G)) 

NIL 

(SUBMONOID C G) 

5) (CENTER C G) 

NIL 

(ABELIAN C G) 

6) (AND (CENTER C G) (AND (GROUP G) (SUBSET G C))) 

NIL 

(ABELIAN G G) 

7) (AND (CENTER C G) (AND (SUBSET H C) (GROUP G))) 

NIL 

(NORMAL H G G) 

8) (AND (SUBSET H G) (AND (ABELIAN G G) (GROUP G))) 

NIL 

(NORMAL H G G) 

9) (AND (SUBSET H G) (AND (ABELIAN G G) (GROUP G))) 

NIL 

(ABELIAN H G) 

10) (AND (INTERSECTION I H J) (AND (SUBGROUP H G) (SUBGROUP J G))) 

NIL 

(SUBGROUP I G) 

11) (AND (INTERSECTION I H J) (AND (NORMAL H G G) (NORMAL J G G))) 
NIL 

(NORMAL I G G) 

12) (AND INTERSECTION I H J) (AND (SUBGROUP J G) (NORMAL H G G))) 

NIL 

(NORMAL I J G) 
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13) 

(AND (IMAGE I (Fl G H)) (AND (HOMOMORPHISM (FI G H)) 
NIL 

(SUBGROUP I H) 

(GROUP G))) 

14) 

(AND (CONJUGATE D Al H G) (AND (GROUP G) (SUBGROUP H G))) 

NIL 

(SUBGROUP D G) 

15) 

(AND (AND (SUBGROUP H G) (LCOSET D Al H G)) (MEMBER Al H)) 

NIL 

(SUBSET D H) 

16) 

(AND (SUBSET A G) (AND (LCOSET D (*IDENTITY G) A G) 
NIL 

(SUBSET D G) 

(GROUP G))) 

17) 

(AND (SUBSET A G) (AND (LCOSET D (*IDENTITY G) A G) 
NIL 

(SUBSET D A) 

(GROUP G))) 

18) 

(AND (SUBSET A G) (LCOSET D (*IDENTITY G) A G)) 

NIL 

(SUBSET A D) 


19) 

(AND (GROUP G) (AND (SUBSET A G) (AND (LCOSET D (*IDENTITY G) A G) 
(RCOSET E (*IDENTITY G) A G)))) 

NIL 

(SUBSET D E) 

20) 

(AND (GROUP G) (LCOSET D Al G G)) 

NIL 

(AND (SUBSET G D) (SUBSET D G)) 


21) 

(AND (GROUP G) (AND (LCOSET D Al G G) (RCOSET E Al G G))) 

NIL 

(SUBSET D E) 

22) 

(AND (SUBGROUP H G) (LCOSET D Al H G)) 

NIL 

(MEMBER Al D) 


23) 

(AND (SUBGROUP H G) (NORMALIZER D H G)) 

NIL 

(SUBSET H D) 


24) 

(NORMALIZER J H G) 

NIL 

(NORMAL H J G) 


25) 

(GROUP G) 

NIL 

(NORMAL G G G) 


26) 

(UNITSET E (*IDENTITY G)) 

NIL 

(NORMAL EGG) 


27) 

(UNITSET E (*IDENTITY G)) 

NIL 

(SUBGROUP E G) 
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28) (AND (COMMUTATOR Al A2 A3 G) (ASSOC G)) 

(EQUAL2 (*PROD A2 A3 G) (*PROD A3 A2 G)) 

(EQUAL Al (*IDENTITY G)) 

29) (AND (COMMUTATOR Al A2 A3 G) (AND (ASSOC G) (AND (ABELlAN G G) 

(AND MEMBER A2 G) (MEMBER A3 G))))) 

NIL 

(EQUAL Al (*IDENTITY G)) 

30) (AND (AND (COMMUTATOR Al A2 A3 G) (COMMUTATOR A4 A3 A2 G)) (ASSOC G)) 
NIL 

(EQUAL (*INVERSE Al G) A4) 

31) (AND (AND (COMMUTATOR Al A2 A3 G) (COMMUTATOR A4 A3 A2 G)) (ASSOC G)) 

NIL 

(INVERSE A4 Al G) 

32) (AND (GROUP G) (AND (MEMBER A1 G) (MEMBER A2 G))) 

NIL 

(AND (EXISTS A3 (EQUAL (*PROD Al A3 G) A2)) (EXISTS A3 (EQUAL 
(*PROD A3 Al G) A2))) 

33) (SUBGROUP H G) 

NIL 

(IMPLIES (AND (MEMBER Al H) (MEMBER A2 H)) (MEMBER (*PROD Al 
(*INVERSE A2 G) G) H)) 

34) (GROUP G) 

(EQUAL2 Al (*INVERSE Al G)) 

(ABELIAN G G) 

35) (GROUP G) 

(AND (EQUAL (*PROD Al Al G) (*IDENTITY G)) (IMPLIES (EQUAL 

(*PROD Al Al G) (*IDENTITY G)) (EQUAL2 Al (*INVERSE Al G)))) 
(ABELIAN G G) 

36) (AND (HOMOMORPHISM (FI G H)) (KERNEL K (FI G H))) 

(IMPLIES (MEMBER Al K) (EQUAL Al (*IDENTITY G))) 

(ONETOONE (Fl G H)) 

37) (AND (AND (HOMOMORPHISM (Fl G H)) (KERNEL K (Fl G H))) (ONETOONE 

(Fl G H))) 

NIL 

(IMPLIES (MEMBER A1 K) (EQUAL A1 (*IDENTITY G))) 

38) (AND (AND (AND (LCOSET D Al H G) (SETINV IDG)) (SUBGROUP H G)) 

(GROUP G)) 

NIL 

(RCOSET I (*INVERSE Al G) H G) 

39) (AND (AND (LCOSET D Al H G) (LCOSET E A2 H G)) (AND 

(SUBGROUP H G) (ASSOC G))) 

(AND (MEMBER (*PROD (*INVERSE A2 G) Al G) H) (EQUAL 

(*PROD (* IN VERSE Al G) A2 G) (*INVERSE (*PROD (*INVERSE A2 G) 

Al G) G))) 

(AND (SUBSET D E) (SUBSET E D)) 

40) (AND (AND (HOMOMORPHISM (Fl G H)) (AND (MEMBER Al G) (INVPNT I 

(Fl G H Al) (Fl G H)))) (KERNEL K (Fl G H))) 

NIL 

(LCOSET I Al KG) 
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41) (AND (NORMAL H G G) (SUBSET K G)) 

NIL 

(NORMAL H K G) 

42) (AND (AND (SUBSET A B) (SUBSET B G)) (AND (CENTRAL C A G) 

(CENTRAL D B G))) 

NIL 

(SUBSET D C) 

43) (AND (HOMOMORPHISM (Fl G H)) (AND (RIMAGE J K (FI G H)) 

(INVIMAGE I J (Fl G H)))) 

NIL 

(SUBSET K I) 

44) (AND (AND (EPIMORPHISM (Fl G H)) (CENTER C G)) (AND 

(RIMAGE I C (Fl G H)) (CENTER D H))) 

NIL 

(SUBSET I D) 

45) (AND (EPIMORPHISM (Fl G H)) (IMAGE I (Fl G H))) 

NIL 

(SUBSET H I) 

46) (AND (HOMOMORPHISM (Fl G H)) (AND (ABELIAN G G) (IMAGE I 

(Fl G H)))) 

NIL 

(ABELIAN I H) 

47) (AND (AND (HOMOMORPHISM (Fl G H)) (SUBGROUP K G)) (RIMAGE I K 

(Fl G H))) 

NIL 

(SUBGROUP I H) 

48) (AND (NORMAL EGG) (AND (RIMAGE IK (Fl G H)) (EPIMORPHISM 

(Fl G H)))) 

NIL 

(NORMAL I H H) 

49) (AND (AND (HOMOMORPHISM (Fl G H)) (NORMAL K G G)) (AND (RIMAGE I K 

(Fl G H)) (IMAGE J (Fl G H)))) 

NIL 

(NORMAL I J H) 

50) (AND (HOMOMORPHISM (Fl G H)) (AND (SUBGROUP K H) (INVIMAGE D K 

(Fl G H)))) 

NIL 

(SUBGROUP D G) 

51) (AND (HOMOMORPHISM (Fl G H)) (AND (NORMAL K H H) (INVIMAGE D K 

(Fl G H)))) 

NIL 

(NORMAL D G G) 

52) (AND (SUBGROUP H G) (AND (FACTORGROUP B K G) (SUBFGRP C K H G))) 

NIL 

(SUBSET C B) 

53) (AND (SUBGROUP H G) (AND (FACTORGROUP B K G) (SUBFGRP CKHG))) 

NIL 

(SUBGROUP C B) 
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54) 




(AND (NORMAL H G G) (AND (FACTORGROUP B K G) (SUBFGRP C K H G))) 

NIL 

(NORMAL C B B) 

55) (GROUP G) 

(IMPLIES (MB1BER A1 G) (EQUAL (FI G G Al) (* ID ENTITY G))) 

(HOMOMF (FI G G)) 

56) (GROUP G) 

NIL 

(ISOMORPHIC G G) 

57) (ISOMORPHISM (FI G H)) 

NIL 

(ISOMORPHIC G H) 

58) (ISOMORPHISM (FI G H)) 

NIL 

(ISOMORPHIC H G) 

59) (AND (GROUP G) (AND (ISOMORPHISM (Fl G H)) (ISOMORPHISM (F2 H K)))) 
NIL 

(ISOMORPHIC G K) 

60) (AND (ISOMORPHISM (Fl G H)) (ISOMORPHISM (F2 HI))) 

NIL 

(ISOMORPHIC K G) 

61) (AND (FACTORGROUP DEG) (AND (UNITSET E (*IDENTITY G)) (GROUP G))) 
NIL 

(ISOMORPHIC G D) 

62) (AND (FACTORGROUP DEG) (UNITSET E (*IDENTITY G))) 

NIL 

(ISOMORPHIC D G) 

63) (AND (AND (FACTORGROUP DKG) (KERNEL K (Fl G H))) (EPIMORPHISM 

(Fl G H))) 

NIL 

(ISOMORPHIC D H) 

64) (AND (AND (FACTORGROUP DKG) (KERNEL K (Fl G H))) (EPIMORPHISM 

(Fl G H))) 

NIL 

(ISOMORPHIC H D) 

65) (AND (AND (FACTORGROUP D K H) (FACTORGROUP E I H)) (AND 

(INTERSECTION I H K) (SUBGROUP K H))) 

NIL 

(ISOMORPHIC D E) 

66) (AND (AND (FACTORGROUP D K H) (FACTORGROUP E I H)) (AND 

(INTERSECTION I H K) (SUBGROUP K H))) 

NIL 

(ISOMORPHIC E D) 

67) (AND (AND (FACTORGROUP DIG) (FACTORGROUP B K H)) (AND 

(EPIMORPHISM (Fl G H)) (INVIMAGE I K (Fl G H)))) 

NIL 

(ISOMORPHIC D E) 
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68) (AND (AND (FACTORGROUP DIG) (FACTORGROUP E K H)) (AND 

(EPIMORPHISM'(Fl G H)) (INVIMAGE I K (Fl G H)))) 

NIL 

(ISOMORPHIC E D) 

69) (AND (AND (FACTORGROUP A H G) (FACTORGROUP B K G)) (AND 

(SUBFGRP CKHG) (FACTORGROUP D C B))) 

NIL 

(ISOMORPHIC A D) 

70) (AND (AND (FACTORGROUP A H G) (FACTORGROUP B K G)) (AND 

(SUBFGRP CKHG) (FACTORGROUP D C B))) 

NIL 

(ISOMORPHIC D A) 

71) (AND (ABELIAN G G) (GROUP G)) 

NIL 

(ISOMORPHIC G G) 

(IMPLIES (MEMBER A1 G) (EQUAL (Fl G G Al) (*INVERSE A1 G))) 

(overriding GENFCN) 

72) (AND (MEMBER Al G) (GROUP G)) 

NIL 

(ISOMORPHIC G G) 

(IMPLIES (MEMBER A2 G) (EQUAL (Fl G G A2) (*PROD (*PR0D Al A2 G) 

(*INVERSE Al G) G))) 

(overriding GENFCN) 

73) (AND (GROUP G) (FACTORGROUP D H G)) 

NIL 

(ISOMORPHIC G D) 

(fails on one-to-one, thus proving epimorphic ) 

74) (AND (FACTORGROUP D K G) (AND (FACTORGROUP E I H) (AND 

(R1MAGE I K (Fl G H)) (EPIMORPHISM (Fl G H))))) 

NIL 

(ISOMORPHIC D E) 

(fails on one-to-one, thus proving epimorphic ) 

75) (AND (LCOSET D Al H G) (AND (LCOSET E A2 H G) (AND (ASSOC G) (AND 

(MEMBER Al D) (SUBSET D E))))) 

NIL 

(MEMBER (*PROD (*INVERSE A2 G) Al G) H) 

76) (AND (SETINV I H G) (AND (NORMAL H G G) (SUBGROUP H G))) 

NIL 

(AND (SUBSET H I) (SUBSET I H)) 

77) (AND (SETINV I H G) (SUBGROUP H G)) 

NIL 

(SUBGROUP I G) 

78) (AND (SETINV I H G) (AND (NORMAL H G G) (AND (SUBGROUP H G) (ASSOC G)))) 
NIL 

(NORMAL I G G) 

79) (AND (CENTER C G) (ABELIAN G G)) 

NIL 

(SUBSET G C) 
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80) (HOMOMORPHISM (Fl G H)) 

(AND (AND (EQUAL (*SEQ (A9 N2) I A) (A9 1)) (EQUAL (*SEQ (F9 A B 
(A9 N2)) I B) (F9 A B (A9 1)))) (AND (EQUAL (*SEQ (A9 N2) 

(★SUCCESSOR N3) A) (*PROD (*SEQ (A9 N2) N3 A) (A9 (*SUCCESSOR N3)) 
A)) (EQUAL (*SEQ (F9 A B (A9 N2)) (*SUCCESSOR N3) B) (*PROD (*SEQ 
(F9 A B (A9 N2» N3 B) (F9 A B (A9 (*SUCCESSOR N3))) B)))) 

(FEQUAL (Fl G H (*SEQ (A1 Nl) N G)) (*SEQ (Fl G H (A1 Nl)) N H)) 

81) (HOMOMORPHISM (Fl G H)) 

(AND (AND (EQUAL (*SEQ A8 A9 1 A) (A8 A9 1)) (EQUAL (*SEQ A8 A9 

(★SUCCESSOR Nl) A) (*PROD (*SEQ A8 A9 Nl A) (A8 A9 (*SUCCESSOR Nl)) 
A))) (EQUAL (F9 A B (A8 A9 Nl)) (A8 (F9 A B A9) Nl))) 

(FEQUAL (Fl G H (*SEQ A1 A1 N G)) (*SEQ Al (Fl G H Al) N H)) 

82) (AND (SEMIGROUP G) (MEMBER Al G)) 

(AND (EQUAL (*EXP A9 1 G) A9) (EQUAL (*EXP A9 (*SUCCESSOR Nl) G) 

(★PROD (*EXP A9 Nl G) A9 G))) 

(MEMBER (*EXP Al N G) G) 

83) (AND ($SUBGROUP (H 1) G) ($SUBGROUP (H (*SUCCESSOR N)) G)) 

(IMPLIES (AND ($SUBGROUP A C) ($SUBGROUP B C)) ($SUBGROUP 

(*INT A B) C)) 

($SUBGROUP (*FININT H N) G) 

84) (AND ($N0RMAL (H 1) G G) ($NORMAL (H (*SUCCESSOR N)) G G)) 

(IMPLIES (AND ($NORMAL ACC) ($NORMAL BCG)) ($NORMAL (*INT A B) C C)) 
($NORMAL (* FIN INI UN) G G) 

85) (NULL) 

(AND (AND (IMPLIES (AND (GROUP A) (LEP (ORDER A) 1)) (EQUAL A 
(★UNITSET (*IDENTITY A)))) (IMPLIES (GROUP A) (AND 
($HAS*MAX*NORM*SUB A) (AND (GROUP (*MAX*NORM*SUB A)) 

(IMPLIES (LEP (ORDER A) (*SUCCESSOR Nl)) (LEP (ORDER 
(*MAX*NORM*SUB A)) Nl)))))) (IMPLIES ($HAS*COMP*SERIES A) 

(EXISTS N3 (EXISTS (B N4) (COMP*SERIES ((B N4) N3) A))))) 

(IMPLIES (AND (GROUP G) (LEP (ORDER G) N)) ($HAS*COMP*SERlES G)) 

86) (AND (AND (UNMARRIED*FOIALE N7) (UNMARRIED*MALE N5)) (AND (IMPLIES 

(NOT*THINK*DEAD N8 N6) (CAN*STAY*ALIVE N5)) (AND (IMPLIES 
(CAN*APPEAR*SAFELY N6) (CAN*PRODUCE N5 N6)) (AND (IMPLIES 
(NOT*ACCUSING N7 N6) (CAN*APPEAR*SAFELY N6)) (IMPLIES 
(NOT*CLAIMING N7 N6) (NOT*ACCUSING N7 N6)))))) 

(AND (IMPLIES (EXISTS Nl (CAN*PRODUCE Nl N2)) (NOT*THINK*DEAD N8 N2)) 
(AND (IMPLIES (MARRIED N7) (NOT*CLAIMING N7 Nl)) (AND (IMPLIES 
(EXISTS Nl (CAN*MARRY Nl N2)) (MARRIED N2)) (AND (IMPLIES (EXISTS Nl 
(CAN*PROPOSE Nl N7)) (EXISTS Nl (CAN*MARRY Nl N7))) (IMPLIES (AND 
(UNMARRIED*FEMALE N2) (EXISTS Nl (UNMARRIED*MALE Nl))) (EXISTS Nl 
(CAN*PROPOSE Nl N2))))))) 

(CAN*STAY*ALIVE N5) 

(N5 - Koko 
N6 = Nanklpoo 
N7 = Katisha 
N8 * Mikado) 
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APPENDIX III 


LISTING OF THE PROGRAM 


The reader who attempts to use the listings included in this appendix 
will find that they do not conform in all details with the descriptions given 
in the body of this report. Any discrepancies of this sort were introduced 
solely to make the report easier to comprehend, and do not really misrepresent 
the actual operation of the program. 

The various LISP functions are made into a system by means of a file such 
as COMPIL. Following execution of this file, the user may call ADEPT as a 
LISP function of two arguments. The first of these is to be either "NIL" or 
"MODEL", and determines whether or not the MODEL heuristic is to be in effect. 
The second argument is to be either "NIL" or "INDUCT", and is the present 
means whereby NSOLVE can be called, when use of mathematical induction is 
desired. (Warning: Even with the special LISP system available to the author 
and extensive use of RBfOB,it was not possible to load all the functions 
into the system at once by use of COMPIL as presented here. This would pre¬ 
sumably be the case with most LISP systems.) 

The file DEFNS DATA contains the sufficient conditions and definitions 
used by the author. The two remaining lists in this file represent certain 
of the built-in axioms and lattice information for use with the MODEL heuris¬ 
tic, respectively. 
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INDEX TO LISTING 


ADDANTEC, 162 
ADDCGMSQ, 162 
ADEPT, 141 
ALIMATCHl, 169 
ALLSUBS TS, 165 
ALLVBLES, 164 
ANDARGS, 162 
ANDEND, 169 
ANDTKRMS, 169 
APPENDS, 162 
ARGOF1, 166 
ASSOCM, 165 
ASTERISKED, 165 
ATMS, 168 
CADDAAR, 166 
CADDDAAR, 166 
CADDDAR, 166 
CHECJMODEL, 160 
CHNGW, 165 
OOMFIL, 172 
COMPOSITION, 155 
CONNECTIVE, 164 
DKFNS DATA, 170-171 
DELPR, 168 
DKLIP, 168 
7IPTR, 165 
7RSEVBLS, 168 
GKNFCN, 154 
GENSKT, 160 
GENSUBST, 164 
GINVBLK, 168 
GFIND, 169 
GMATCH, 163 
GMATCHl, 163 
CMB1B, 169 


GTFRM, 161 
HIM, 159 
HOMOMF, 153 
OffMATCH, 163 
INVM, 158 
INVM2, 158 
INVRRDO, 167 
INVSUB, 167 
ISOLVE, 142 
MASK, 162 
MATCH1, 162 
MEET, 160 
MIMDF1, 167 
MIRGEA, 168 
MODEL MAKE, 160 
MONOMF, 156 
NEXT, 166 
NOLOOK, 165 
NOWWHICH, 160 
NSOLVE, 143 
ON, 164 
ONLY, 153 
ONLYMBOt, 168 
0N2, 149 
0N2AVKR, 162 
PMATCH, 165 
PROOARGS, 167 
PUTN2, 149 
PUT0N1, 148 
PUT0N2, 149 
P0T2, 149-150 
RESRV, 164 
BOFV, 165 
ROFH, 166 
RPLCB, 166 
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RPLCEF, 168 
RPLC1, 169 
RPTSUB, 167 
SCANW, 146-147 
SCNX, 152 
SIFT, 158 
SIXTH, 165 
SLVX, 153 
SOLVE, 144-145 
SOLVEX, 151 
SOLVX, 143 
SOLVXP, 153 
SPREAD, 165 
SUPSUB, 164 
SUPXEG, 164 
SWMEMB, 160 
TACK, 168 
TERMS, 164 
VBLES, 164 
VERIFY, 157 
WLDFN, 155 
WLDFN1, 155 
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ADEPT LISP 

DEFINE!<<ADEPT(LAMBDA(QM5 WH) 00010 

(PROG!H1 W X V Z1 Z2 Z3 Z4 N 26 Q QF1 U Ul QL1 QL2 XX CX CXI LON 00020 

QH1 QM2 QN3 QM4 QM6 FQM2 FQH3 FQM4 U2 03 ZN VV1 VV2 CL Z4A Z4BI 00030 

(SETO N (QUOTE NILD) 00040 

(FILESEEK(QUOTE DEFNS)(QUOTE DATA)) 00050 

(SETQ X (READ)) 00060 

(SETQ V (READ)) 00070 

(SETQ XX (READ)) 0008C 

(SETQ QM1 (READ)) 00090 

(FILEENDRD!QUOTE DEFNS)(QUOTE DATA)) 00100 

HI (SETQ Z1 (QUOTE!(NILL.A)(NILL.B)(NILL.CI(NILL.D)(NILL.E) 00110 

(NILL.G)(NILL.HIINILL.I)(NILL.J)(N1LL.K)(NILL.M)))) 00120 

(SETQ Z2 (QUOTE!(NILL•F1I(NILL.F2)(NILL.F3)(N1LL.F4}(NILL *F5) 00130 

(NILL.F6)(N1LL.F7)(NILL.F8)(NILL.F9)))) 00140 

(SETQ Z3 (QUOTE((NILL.A1HNILL.A2)(NILL.A3)(NILL.A4)(NILL.A5) 00150 

(NILL.A6)(NILL.A7)(NILL.A8)(NILL.A9)(NILL.A10)(NILL.All)(NILL.A12)I)) 00160 

(SETQ ZN (QUOTE!(NILL.N)(NILL.Nil(NILL.N2)(NILL.N3I 00170 

(NILL.N4)(NILL.N5)(NILL.N6)INILL.N7)(NILL.N8)(NILL.N9)I I) 00180 

(SETQ Q NIL) 00190 

(SETQ QH2 NIL)(SETQ QM3 NIL)(SETQ QM4 NIL)(SETQ QM6 NIL) 00200 

(SETQ QL1 NIL) 00210 

(SETQ QL2 NIL) 00220 

(SETQ Z4 1)(SETQ Z4A 1)(SETQ Z4B 1) 00230 

(SETQ Z6 NIL) 00240 

(SETQ LON NIL) 00250 

(SETQ VV1 NIL)(SETQ VV2 NIL) 00260 

(SETQ W1 NIL) 00270 

(SETQ W NIL) 00280 

(SETQ U2 (ROFLX())) 00290 

(SETQ U1 (ALLVBLES(VBLES U2))) 00300 

(SETQ Z1 (RESRV U1 Zl)l 00310 

(SETQ Z2 (RESRV U1 Z2)) 00320 

(SETQ Z3 (RESRV U1 Z3)) 00330 

(SETQ ZN (RESRV U1 ZN)) 00340 

(SETQ CL (ALLVBLES!TERMS U2 (ALLVBLES(VBLES U2)))l) 00350 

(SETQ U3 (ROFLXt))) 00360 

(SETQ U (RDFLXl)) ) 00370 

(CONDI (EQUAL (CAR U) (QUOTE IMPLIESIKGO H1A) ) ) 00380 

(SETQ U1 (ALLVBLES!VBLES U))) 00390 

(SETQ Z1 (RESRV U1 Zl)l 00400 

(SETQ Z2 (RESRV U1 Z2)l 00410 

(SETQ Z3 (RESRV U1 Z3I) 00420 

(SETQ ZN (RESRV U1 ZN)) 00430 

H1A (COND((EQUAL(CAR U2I(QUOTE AND!)(SETQ U1 (PUTONltCONS Z4A N) U2I)) 00440 

(T (SETQ Ul (PUT0N1IC0NS Z4A Z4B) U2D.1) 00450 

(SETQ Z4B (ADD1 Z4BI) 00460 

(COND((NULL U3)(GO H1BI)) 00470 

(SETQ U2 U3) 00480 

(SETQ U3 NIL) 00490 

(GO H1A) 00500 

H1B (CONDI(McMBERICAR Ul(QUOTE(ISOMORPHIC ONEONEI)) 00510 

(SETQ Ul (ISOLVE Ul)) 00520 

((NULL WH)(SETQ Ul (SOLVE U))l 00530 

(T (SETQ Ul (NSOLVE U)))) 00540 

IGO Hll 00550 

))))) STOP))) 00560 
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isoLve lisp 

OEFINE(((ISOLVE(LAMBDAIU)(PROGIU1 EQN FV FV2> 

XI (CONDI(NULL CLIIGO X2)l) 

(SETQ U1 (GTFRNICAR CLXQUOTE Yl NIL Z4BX 
ISETO CL (CDR CD) 

(SETQ Z4B (AODI Z4B)I 
(CO XI) 

X2 (SETQ FV (CONS Wl VV2)I 

(SETQ FQM2 QM2) (SETQ FQH3 QM3KSETQ FQM4 QH4I 
(SETQ EQN (ROFLX())) 

(CONDI I EQUAL (CAR L) (QUOTE ONEONE))(GO BIO 
ISETQ U1 (NEMOF1 VVI (QUOTE ISONORPHISN))) 

X4 (CONDI (NULL U1KGO X3I) 

I (EQUAL (CDAAR UIXCOR UXIGO Fb)l) 

(SETQ U1 (COR Ul>) 

(60 X4) 

X3 (CONDI(NULL EQN)ISETQ EQN (GENFCNICOR U))>)> 

(CONDI(NULL EQN)(GO Fill) 

(PRINT EQN) 

(SETQ VVI (CAR FVXISETQ VV2 (COR FV)) 

(SETQ QN2 FQM2XSETQ QM3 FQH3XSETQ QM4 FQN4) (SETQ QH6 NIL) 
(SETQ UI (PUTONi(CONS Z4A Z4B) EQN)) 

(SETQ Z4B (AODI Z4B)) 

(SETQ FV2 (CONS VVI VV2I) 

(CONDI (EQUAL I CAR EQN) (QUOTE IMPLIESIXGO AX) 

(SETQ Ul (WLDFNICOR EQN)I) 

(CONDI(NULL Ul)(GO F2))) 

(SETQ Ul (CAAOR EQN)) 

(SETQ VVI ICAR FV2)XSETQ VV2 (CDR FV2II 

(SETQ QH2 FQN2XSETQ QH3 FQH3) I SETQ QN4 FQH4) (SETQ QN6 NILI 
(GO Al) 

A (SETQ Ul (CAARICOAOOR EQN))) 

Al (SETQ Ul ( SOL VE( L ISTIQUOTE HOMOHFXCONS Ul (COR U))))l 
(CONDI(NULL Ul)(GO r3>>> 

(SETQ Z6 NIL)(SETQ LON NIL) 

(SETQ HI NIL) 

(SETQ H NIL) 

(SETQ VVI (CAR FV2)>ISETQ VV2 (COR FV2I) 

(SETQ QN2 FQH2XSETQ QH3 FQH3XSETQ QN4 FQH4) (SETQ QM6 NIL) 

ICOND((EQUAL I CAR EQN)(QUOTE IMPLIES)1(60 Pill 
PI (SETQ Ul (SOLVEILISTI QUOTE ONTOXCONSICAADR EQN) (COR U)))l) 
(CONDI(NULL U1)(GO F4>>> 

(SETQ Z6 NIL)(SETQ LON NIL) 

(SETQ Ul NIL) 

(SETQ H NIL) 

(SETQ VVI (CAR FVXISETQ VV2 (CDR FVX 

(SETQ QM2 FQM2)(SETQ QN3 FQM3)ISETQ QM4 FQH4I(SETQ QM6 NIL) 

B (SETQ Ul (MONOMF EQN NX 
(CONOKNULL U1XG0 F5)) I 
C (PRINT!QUOTE QEDX 
(RETURN T) 

FI (PRINT(QUOTE(CANNOT FIND RELATING FUNCTION)I) 

(GO HI) 

F2 I PR INTI QUOTE(CANNOT PROVE FUNCTION HELL DEFINED))) 

(GO HI) 

F3 (PRINT!QUOTE(CANNOT PROVE FUNCTION HOMOMORPHIC I)I 
(GO HI) 

F4 (PR INTI QUOTE(CANNOT PROVE FUNCTION EPIMORPHIC)11 
(GO HI) 

F5 (PRI NT(QUOTE(CANNOT PROVE FUNCTION MONOMORPHIC))) 

HI (RETURN F) 

F6 (PRINT U) 

(PRINTIQUOTE BECAUSE)! 

(PRINT! L1 ST (QUOTE ISOMORPHISMXCAAR U1X) 

(GO Cl 

P (SETQ Ul (CADOR EQN)) 

(SETQ VV2 (SUBST Ul EQN VV2X 
(SETQ EQN Ul) 

(GO PI I 

XX) STOP XIX) 


00010 

00020 

00030 

00040 

OOOSO 

00060 

00070 

00080 

00090 

00100 

oono 

00120 

00130 

00140 

00150 

00160 

00170 

00180 

00190 

00200 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 

00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 

00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 

00540 

00550 

00560 

00570 

00580 

00590 

00600 

00610 

00620 

00630 

00640 

00650 

00660 

00670 

00680 

00690 
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NSOLVE LISP 

DEFINE!((NSQLVE(LAMBDA(UI(PROGIU1 FV) OOOIO 

(SETQ FV (CONS VV1 VV2IMSETQ FQM2 QM2MSETQ FQH3 QN3MSETQ FQM4 QM4) 00020 
(SETQ UI (SUBST 1 (QUOTE N> Ull 00030 

(PRINT(QUOTE(ATTEMPTING PROOF BY INDUCTION!I) 00040 

(SETQ UI (SOLVE UllI 00050 

(CONOMNULL UlltCO Fill) 00060 

(PRINT(QUOTE(BASIS STEP PROVEDIII 00070 

(SETQ LON NIL I 00080 

(SETQ Z6 NIL I (SETQ W1 NIL 11 SETQ N NILI1SETQ VV1 (CAR FVIKSETQ VV2 00090 

(CDR FVIKSETQ GHZ FQH2I (SETQ QM3 FQN3I (SETQ CM4 FQM4I (SETQ QM6 NIL) 00100 

(SETQ UI (PUTONKCONS Z4A Z4B) (SUBST (QUOTE EQUAL) (QUOTE FEQUAL) Ull) 00110 
(SETQ Z4B (ADD1 Z4B)) 00120 

(SETQ U (SUBST(QUOTE(•SUCCESSOR N))(QUOTE N) Ull 00130 

(SETQ ZN (RESRVIQUOTE(N11 ZNI) 00140 

(SETQ UI (SOLVE (CONS(QUOTE INOUCTION) Ul)> 00150 

(CONOMNULL Ull (GO F2))) 00160 

(PRINT(QUOTE(INDUCTIVE STEP PROVED))) 00170 

(PRINTIQUOTE QED)) 00180 

(RETURN T) 00190 

FI (PRINT(QUOTE!CANNOT COMPLETE BASIS STEP)11 00200 

(RETURN F) 00210 

F2 (PR INTI QUOTE I CANNOT COMPLETE INDUCTIVE STEP))) 00220 

(RETURN F) 00230 

III)) STOP I>)) I 00240 


SOLVX LISP 

DEFINE!((SOLVX(LAMBDA(U)(PROG(UI U2 U3 S) 00010 

(COND( (ONICADDR UI ZN) (GO BID 00020 

(GO EXTEND) 00030 

B (SETQ UI (CAODDR UI) 00040 

B1A (CONOM EQUAL (CAR UI) (QUOTE EXISTS) I (GO Bill 00050 

((CONNECTIVE(CAR UI)I(GO B2>)> 00060 

(SETQ U2 (MEM0F1 VV1 (CAR Ull!) 00070 

B4A (CONDI(NULL U2)(GO B3III 00080 

(SETQ U3 (GMATCHICOR Ull(CAR U2))> 00090 

(CONO((NULL U3I(GO B4II) 00100 

(SETQ U3 (PUTN2 NIL (CONSICAR UI) 00110 

(CAR U2))(CAODOAR Ull) 00120 

(CONO((NULL U3I(GO B4III 00130 

(RETURN U3> 00140 

B4 (SETQ U2 I COR U2)) 00150 

(GO B4AI 00160 

B1 (SETQ UI (CAODR Ull) 00170 

(GO B1A) 00180 

B3 (SETQ U2 (MEM0F1 VV2 (QUOTE IMPLIES))) 00190 

B3A (CONOMNULL U2MG0 B211 00200 

((EQUAL(CAAOAR U2I(QUOTE AND))(60 85)I 00210 

((EQUAL (CAAOAR U21 (CAR U1IKG0 B6II) 00220 

B3B (SETQ U2 (CDR U2I) 00230 

(GO B3AI 00240 

B6 (SETQ U3 (GHATCH!CDR U1KC0A0AR U2III 00250 

(CONO((NULL U3I(60 B3BI>I 00260 

(SETQ U3 (PUTN2 NIL (CAAR U2)(CADDDAR Ull) 00270 

(CONOMNULL U3KG0 B3BI) 00280 

((MEMBER U3 IQUOTEIOONE NEXT)11(RETURN U3III 00290 

(SETQ S U3I 00300 

(60 B36) 00310 

85 (COND((MEMBER!CAR Ull(ATMS(COAOAR U2))l 00320 

(SETQ U2 (APPEND U2 (LIST(LISTICAAR U2I(CAR(COADAR U2)>) 00330 

(LISTICAAR U2KCADR(COADAR U2) 111 > I >) 00340 

(GO B3BI 00350 

B2 (CONO((NOT(NULL SI)(RETURN S))l 00360 

EXTENO (RETURN NIL) 00370 

>>>>) STOP)III)) 00380 
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SOLVE 


LISP 


DEFINE!((SOLVE(LAMBOA (U) 

(PROGIU1 U2 U3 U4 Z5 S) 

( CONDI ( EQUAL (CAR U) ( QUOTE INDUCTION) HGO III) 

H (SETQ U1 (PUTN2 NIL U NIL)) 

(CONDI(EQUAL U1 (QUOTE DONE)I(GO H4))l 
H2 (CONDI(EQUALICAAAR W)(QUOTE REOHGO H3) I ) 

(SETQ HI (APPENO HI (CONSICAR H) NIL))) 

(SETQ H (CDR H)) 

(GO H2I 

H3 (SETQ H (CONSISUBSTIQUOTE PNT) (QUOTE RED (CAR U))(CDR HID 
H3A (CONDI(EQUAL(CAOAR H)(QUOTE IMPLIES) HGO HHI) 

((EQUAL Z5 (QUOTE INDUCTION))(GO 1111) 

(SETQ U (SCANH NIL NIDI 
H38 (CONDI (EQUAL U (QUOTE OONEIHGO H4II 
((EQUAL U (QUOTE NEXTV)I(GO H5A)I 
((EQUAL U (QUOTE NEXT))(GO H5))) 

HH (SETQ U (CAR HI) 

(CONDI(CONNECT)VEICADR U))(G0 H6))l 

(SETQ U1 (GTFRHICDR UI(QUOTE X)(CADDOAR U) NIL)) 

(CONDI(NULL U11(GO H8)) 

((EQUAL U1 (QUOTE OONE))(GO H4I)I 
(GO H5AI 

H8 (SETQ U1 (ALLVBLESITERMS(COR U)(ALLVBLESIVBLESICDR U))))I) 
(SETQ S NIL) 

H8A (CONDI (NULL U1KGO H8B))) 

(SETQ U2 (CONSICAR Ul) NIL)) 

(SETQ U3 (CDR Ul> > 

(SETQ Ul NIL) 

H81 (CONDI(NULL U3)(GO H82)I 

((EQUAL(CAAR U2IICAAR U3))(SETQ U2 (APPEND U2 
(CONSICAR U3) NIL)))) 

(T (SETQ Ul (APPEND Ul (CONSICAR U3> NILI)I 11 
(SETQ U3 (CDR U3)I 
(GO H81I 

H82 (CONDI (NULL U21 (GO H83M) 

(SETQ U3 (GTFRMICAR U2)(QUOTE Y) NIL Z4BII 
(CONDI (NULL U3HGO H821)) 

((EQUAL U3 (QUOTE DONE)I(GO H4I) 

I (EQUAL U3 (QUOTE NEXT) MGO H5AII) 

((EQUAL(CAAR U2)(QUOTE ISOMORPHISM))(SETQ Z4B (AOOL Z4BII)I 
(SETQ Z5 (QUOTE GEN)) 

H821 (SETQ U2 (CDR U2)> 

(GO H82) 

H83 (SETQ Z4B (ADDI Z4BII 
(GO H8A) 

H8B (CONDI (NULL Z5MGO H9)> 

((NOT(NULL U)I(SETQ ZS NILII I 
(SETQ U3 (SCANH NIL Z5>) 

(SETQ Z5 NIL) 

(CONOUNULL U3) (GO H9))l 
(SETQ U U3) 

(GO H3B) 

H9 (CONDI (NULL UKGO HIOAII 
((EQ S N)(GO HIO))) 

(SETQ S N) 

(SETQ U2 (ALLVBLESIVBLESICDR U)))) 

(CONDI(NULL U2)(GO HIO))) 

H91 (SETQ Ul (APPEND Ul (ARGOF1 (CAR U2) Will) 

(SETQ U2 (CDR U2)> 

(CONDI (NOT (NULL U2IKGO H9DII 
(GO H8A) 

H6 (CONDI(EQUALICAOR U)(QUOTE IMPLIES)I(GO H6A) I 
((EQUAL(CAOR UI(QUOTE DEFER))(GO H6E))) 

(GO HBI 

H6A (SETQ Ul (ALLVBLES(VBLESICADDR Ul))) 

(SETQ Ul (RPLC1 Ul)) 

(CUNOM NOT (NULL UlIXSETQ U (CONSICAR U) (GENSUBST 
(CAR Ul)(CDR Ul)(CDR U))>)>> 

(SETQ Ul (PUTONKCONS Z4A Z4B) (CADDR U)) > 

(SETQ Z4B (AOD1 Z4B)) 

(CONOI(EQUAL Ul (QUOTE DONE))(GO H4I) 

((EQUAL Ul (QUOTE NEXT) HGO H5A)I) 

(SETQ Ul (PUTN2 NIL (CADDDR U)(CADDDAR U)>I 
H6A1 (COND ((NULL U1HGO HB)) 

((EQUAL Ul (QUOTE DONE 1)(GO H4)l) 

(GO HSA) 

H6E (SETQ Ul (PUTN2 NIL (CADDR U)(CADDDAR UlI) 

(GO H6A1) 

HIO (CONDI (EQUAL (CADR U) (QUOTE EXISTSIMGO H6BII) 

HIOC (SETQ U NIL) 

(SETQ Ul CL) 

(GO H8A) 
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H10A (CONDI(EQUAL(CAOAR H)(QUOTE EXISTS))(GO H6BI) 00830 

((EQUAL(CADAR M>I QUOTE FEQUALI)(GO H6DII) 00840 

H10B (PRINT!QUOTE(DRASTIC MEASURES NEEDED))) 00850 

(PRINT(QUOTE(TYPE YES IF POINTER SHOULD BE MOVED DOWN))I 00860 

(SETQ U (RDFLXI> >) 00870 

(COND((EQUAL U (QUOTE YES))(GO H5>>) 00880 

(GO H4F) 00890 

H6B (SETQ UL (SOLVEXICAR H))) 00900 

H66I (CONDI(NULL Ul)(GO H6BAD 00910 

((EQUAL Ul (QUOTE NEXT))(GO H5I) 00920 

((EQUAL Ul N)(GO H5A)) 00930 

((EQUAL Ul (QUOTE DONE))I GO H4D) 00940 

H6BA (CONDI INOTINULL UIXGO H10C>>) 00950 

(SETQ Ul (SOLVX(CAR Ml)) 00960 

(CONDI(NOTINULL Ull)(GO H6B1))) 00970 

(PRINTIQUOTE EXISTS)) 00980 

(GO H10BI 00990 

H6D (SETQ Ul (HONOMF (CDAR HD) 01000 

(CONDI(EQUAL Ul (QUOTE NEXT))(GO H5)) 01010 

((NOT (EQUAL Ul (QUOTE DONEDKGO HlOBD) 01020 

H4 (PRINT VV1) (PRINT VV2XPRINT U1XPRINT HI 01030 

(RETURN T) 01040 

H51 (SETQ Z4B (ADD1 Z4BI) 01050 

H5 (COND( (NULL (NEXT NIDKGO H5E))) 01060 

(GO HHI 01070 

H5A1 (SETQ Z4B (ADD1 Z4BI) 01080 

H5A (COND ( (NOT (NULL! NEXT NIL) > ) (GO H3AD) 01090 

H5E (PRINTIQUOTEIPANIC H5E SOLVED) 01100 

H4F (PRINT VV1) (PRINT VV2) (PRINT HlXPRINT HI OHIO 

(RETURN F) 01120 

I (SETQ Z5 (CAR U)I 01130 

(SETQ U (CDR Ul) 01140 

(GO HI 01150 

II (SETQ 25 NIL) 01160 

(GO HH) 01170 

Dill STOP ID)))) 01180 
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LISP 


r 7||g3p|^i | eje-Kf-t^ 


SC ANN LISP 

OEFINEI((SCANN(LAMBDA<L LL) 

(PROGIS SI U U1 UZ U3 UA U5 U6 UT U8 FLG» 

Ai (SETQ S NIL) 

(SETQ FLG NIL) 

(SETQ U1 (ONLY!APPEND Ml M)(QUOTE!VERA2I))) 

AlA (CONP! (NULL Ull(GO AZ)) 

((NEHBERICAODOAAR Ul> Z6XG0 AA)) 

((HEHBERIQUOTE HEAD)(CAOAAR U1))(SETQ FLG (CONSISIXTH 
(CAAR Utl) FLG)))) 

AA (SETQ U1 (COR Ul>) 

(GO A1A) 

A2 (CONDI(NULL M)(SETQ U1 NIL)) 

((NULL LL)(SETQ U1 (CONS(CAR H) NIL))) 

((EQUAL LL N)(SETQ U1 ICDR HI)) 

(T (SETQ U1 W))) 

A2A (CONDI (NULL U1XGO CD) 

(SETQ U2 (CAR Ulll (SETQ U1 ICDR Ul)l 
(CONDI (NOLOOK (CADODAR UZIKGO A2A)) 

(IHEMBERICADR U2I (QUOTE! IMPLIES FEQUAL DEFER ORIIKGO A2AIII 
(SETQ U (ROFV(FIFTH(CAR UZ)) FLG)) 


(SETQ UA NIL) 

(CHNGH U2) 

A2B (CONDI (NULL UXGO A3 ID 

(SETQ U3 (CAR U)l (SETQ U (CDR Ull 
(CONDI (EQUAL(CADR U3) (QUOTE IMPLIESDIGO BAD 
(( EQUAL (CADR UZ) (QUOTE EXISTSDIGO A2BD 
(( MEMBER! CONS (CADOOAR UZXCDAR U3D LONXGO A2B) I 
((EQUAL (CADR U3X QUOTE EQUAL 11 (GO B3I) 

((EQUAL(CADR U3)(QUOTE EQUAL2)I(GO BZ)I 
((EQUAL (CADR U3) (QUOTE ASSOCDIGO B6II) 

(GO A2B) 

A3 (CONDI (NULL UAXGO A2A)) 

((NULL S>(GO A31D 
I (NOLOOK (CADDOAR U2IXGO A2A))) 

A31 (SETQ US (CAAR UAD 
(SETQ U6 (CDAR UAD 
(SETQ U7 (CDR UAD 
(SETQ UA NIL) 

A3A (CONDI (NULL UTXGO A3BD 

((EQUAL U5 (CAAR U7IXSETQ U6 (APPEND U6 (CDAR U7IID 
(T (SETQ UA (APPEND UA (CONSICAR U7I NILDID 
(SETQ U7 (CDR U7D 

A3B G0 (COND(IHEMBERICADR U2)I QUOTE(EQUAL EQUAL2))I(SETQ U (CADDR U2)D 
(T (SETQ U (CDR UZDD 
(SETQ UB (SUPXEC U6 Ull 

A30 (CONDI (NULL UBXGO A3) ) 

(IHEMBERICADR U21 (QUOTE (EQUAL EQUAL2D) 

(SETQ U (LISTICADR UZXCAR U6KCADOOR UZDD 
(T (SETQ U ICAR U6DD 
(SETQ U6 (CDR U6D 

(SETQ U3 (PUTN21CONDI(MEMBERICAAR U2)(QUOTE(RELl PNTII) 

NILXT (CAAR UZID U (CADODAR U2D) 

(CONDI (NULL U3KGO A30II 

((EQUAL U3 (QUOTE DONE)) (RETURN U3D 
((EQUAL U3 (QUOTE NEXTIXGO A3ED) 

A3D1 (SETQ S N) 

(GO A3D) 

A3E (CONDI (NULL LL I (RETURNIQUOTE NEXTVDI) 

(SETQ SI U3> 

(GO A301I 

BZ (SETQ U5 (ALLSUBSTS(CADDR U3IICADOOR U3I 
(CDR UZXCDAR U3D) 

(CONDI(NULL US)(GO B3III 

(SETQ UA I APPEND UA (CONS U5 NIL))) 

B3 (SETQ U5 (ALLSUBSTS(CADODR U3I(CADDR U3I 
(CDR U2)(CDAR U3D) 

B3A (CONOI(NOTINULL U511(SETQ UA (APPENO UA (CONS U5 NIL))))) 

(GO AZB) 

BB (CONDI(NOT(MEMBER(QUOTE »PROD)IALLVBLESIATMSICOR UZ)1111 
(GO A2B)11 

(SETQ U5 (ASSOCMI CADDR U3I ICDR U2XC0AR USD) 

(GO B3A) 

BA (SETQ U5 (ALLMATCM1 (CADODR U3IIC0R U2DI 

BA1 (CONDI (NULL U5XGO BSD 
((NULL SXGO BAIAD 
((NOLOOK (CAOODAR U2IXGO A2A))) 

BA1A (SETQ UB (PUTN2(COND( (MEMBERICAAR U21 (QUOTE! RELl PNTID 
NILXT (CAAR U2) D (GENSUBSTICOAR USXCAAR U5I 
(CADDR U3) I (CADODAR UZID 
(CONDI(NULL U6I(GO BAA)I 

((EQUAL U6 (QUOTE DONE I)(RETURN UB)I 
((EQUAL U6 (QUOTE NEXTIXGO BAB) I) 
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B416 (SETQ S N> 

642 (CONO(CEQUAL(CAAR U2) (QUOTE RED) (GO 640) 

((EQUAL(CAAR U2)(QUOTE PNT))(SETQ SI (QUOTE NEXT)))) 

643 (SETQ LON (CONSICQNSICADOOAR U2HC0AR U3)> LON) I 
843A (SETQ US (COR U5>) 

(GO 641) 

BAA (CONO( (ON(GENSUBST(CDAR U5HCAAR US) (CAOOR U3>) 

(ROFW(CADOOAR U21)1(60 B42))) 

(GO B43A) 

BAB (CONO((NULL LL)(RETURN(QUOTE NEXTV)>)) 

(SETG SI U6) 

(GO 6418) 

B4C (SETQ U6 (GFINO(CAOOOAR U2))> 

(CONO((EQUAL(CAAR U6)(QUOTE REL))(SETQ M (SUBST 
(SUBST(QUOTE REL1) (QUOTE RED U6> U6 Will) 

(GO B43) 

66 (COND( (MEMBER(CONS(CAOODAR U2MC0AR U3II LON) (GO A28II) 

(SETQ U5 (1MPMATCH(CAD0DR U3KC0R U2II) 

A10 (CONDI (NULL U5KG0 A2BI) 

((NULL S)(GO 681)1 

((NOLOOK(CAOOOAR U2IKG0 A2A))) 

B81 (SETQ U6 <GENSUBST(CDAR US)(CAAR U5)(CAOOR U3III 
(CONOKON U6 (APPENO VV1 VV2IKGG B8AI) 

((EQUAL(CAR U6)(QUOTE AND I)(GO A10CII) 

A106 (SETQ U7 (0N2AVER U6I) 

ICONO((NOT(NULL- UTI>(GO A14I) 

(I EQUAL (CAAR U2I (QUOTE A2IMG0 A10A)) 

((NULL L)(GO A10PII 
((EQUAL L U6I(GO A10GII) 

A10A (SETQ US (COR USD 
(GO A10) 

A10G (CONO ((NOT (EQUAL (CAOR U21 (QUOTE EXISTIIKGO A10AII) 

(SETQ S (SCNX S (CAOR L) (CAR U5KCA000R U3I U2II 
(CONOI(EQUAL S (QUOTE OONEII(RETURN SI I 
((ATOM SI(60 A1OA111 
(SETQ L (COR S)I (SETQ S ICAR SI) 

(GO A10AI 

A10F (SETQ U6 (PUT0N2(L1ST(QU0TE A211 LI ST(QUOTE HEAD I) 

(LXST(QUOTE NONE)) 24 N (CAAR U3II U6 NIL)I 
(CONO((NOT(NULL U6II(SETQ S Nil I 
(GO A10AI 

A10C (SETQ U7 (ANOARGS U6)I 
A100 (CONDI(NULL U7)(GO B6AII 

((EQUAL(CAAR U7)(QUOTE AND)I(GO A10EII 
((ON (CAR UT 11 APPENO VV1 VV2IMG0 A10EIII 
(GO A106I 

A10E (SETQ U? (COR U7I) 

(GO A10DI 

A14 ICONO((MEMBER(QUOTE HEAD) U7I(GO A14AII 
((EQUAL (CAAR U2 > (QUOTE A2IKG0 A10AI)) 

A14A (SETQ U8 (CONS Z4A U8I) 

(SETQ U7 (FUTON1(CONS Z4A (COAR U3I) U6)) 

(CONDI(NULL U7IIG0 686)1 

((MEMBERICAR U6)(QUOTE!ANO EXISTS))) 

(SETQ U (APPENO U (ROFVICAR US) NIDIII 
((MEMBERICAR U6I(QUOTE1EQUAL2 EQUAL IMPLIES))) 

(SETQ U (APPENO U ICONSICbNSICONS(CAR U8I 
(COAR U3I) U6INIL)11)) 

(CONO((EQUAL U7 (QUOTE DONE)I(RETURN U7II 
((EQUAL U7 (QUOTE NEXT) XSETQ SI U7II) 

(SETQ S N) 

(CONOI(EQICOR U6I N)(GO 686)1) 

B8A (SETQ U6 IGENSU6ST(CDAR U5I(CAAR U5I(CAOODR U3II) 

(SETQ U8 N) 

(GO A14A) 

668 (SETQ U8 NIL) 

(GO A10A) 

C (SETQ Z6 (APPENO FLG Z6I) 

(CONDI(NULL LLIIGO Oil 
((NULL S)(RETURN SI)) 

((NULL SI)(SETQ LL (QUOTE GENII) 

((EQUAL SI (QUOTE NEXT!)(GO Cl)I) 

(GO All 

Cl (SETQ U1 (NEXT NIL)) 

(CONOUNULL Ul)(GO C2)>) 

(SETQ SI N) 

(SETQ LL (QUOTE GEN)) 

(GO All 

C2 I PRINTI QUOTE!PANIC C2 SCANM))) 

(RETURN(QUOTE DONE)) 

0 (CONDI(NOT(NULL Sill(RETURN ISUBSTIQUOTE NEXTV)(QUOTE NEXT) Sl)l) 
((NULL S)(SETQ LL Nil) 

(GO All DID STOP! III11 
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NIL)) ) 

Bill 

(ALLVBLES(CONS 


MEMBER))(ATOMICADR U))l 
QM2I))) 


PUTON1 LISP 

DEFINE! 1 ( PUTON1 (LAMBDA! L UXPROGtUl U3 U4) 

(COND(iMEMBER(CAR U)(QUOTE IIMPLIES EQUAL EQUAL2 ASSOC))) 

(GO C)> 

((EQUAL(CAR U)(QUOTE AND)I(GO B2)) 

((EQUAL(CAR U)(QUOTE IMPLIES2))I GO B>) 

((ON U VV11(RETURN NIL))) 

(SETQ U1 N) 

(SETQ 24A (ADD1 Z4A)) 

(SETQ VV1 (APPEND Wl (CONStCONS L U) 

(CONDI (EQUALICAR U) ( QUOTE EXISTSIKGO 
( (EQUAL (CAR UKQUOTE GROUP))(SETQ Q 
(CADR U) Q)))I 

((MEMBERICAR U)(QUOTEIHOMOMORPHISM ISOMORPHISM 
EPIMORPHISM MONOMORPHISM)I)(SETQ QLX 
(GTFRM1CONS(QUOTE HMPRP)(CDR U)1 
(QUOTE XX) NIL QL1))) 

((EQUALICAR UKQUOTE FACTORGROUP) I (SETQ QL2 (GTFRM 
(CONSIQUOTE FGPRPXCDR UIHQUOTE XX) NIL QL21II) 

(COND((NULL QM51IGO A2)l 
( ( AND( EQUAL (CAR UKQUOTE 
(SETQ QM2 (CONSCCDR U) 

(MOOELMAKE U) 

A2 (CONDI(NOTION U (APPEND Wl W)))(RETURN U1III 
A1 (SETQ U3 (VERIFY U)) 

(CONDI(NULL U3)(RETURN Ul))l 
(RETURN U3> 

C (CONOKON U VV21 (RETURN NIL))) 

(SETQ U1 N) 

(SETQ Z4A (ADD1 Z4A)) 

(SETQ VV2 (APPEND VV2 (CONSICONS L U) NILI)) 

(CONDI (EQUALICAR UKQUOTE ASSOC) ) (SETQ Q (ALLVBLES 
(CONSICADR U) Q>)))) 

(CONOKON U (APPEND Wl WIKGO Al)) 

((EQUALICAR UKQUOTE EQUAL) ) (SETQ U (CONSIQUOTE EQUAL2 
)(COR U))I) 

((EQUALICAR UKQUOTE EQUAL2) ) (SETQ 
(CDR UK IX 
(GO A2) 

B1 (CONDI(NOTION U (APPEND Wl W)I)(GO B1A))) 

(SETQ U3 (VERIFY U)) 

(CONO((EQUAL U3 (QUOTE DONE I)(RETURN U3)) 

((EQUAL U3 (QUOTE NEXT)) (SETQ Ul U3D) 

B1A (COND ( (ON (CADR U) Z3KGO BIB))) 

( PR INK QUOTE ( EXISTS B1A PUTQN1))) 

(RETURN (QUOTE DONE)) 

BIB (SETQ U3 (GENSYM)) 

(SETQ U4 (SUBST U3 (CADR UXCADDR U))> 

(COND ((NULL (GENVBLE (CADDR UHXSETQ Z3 (CONS 
(CONSIQUOTE RES) U3) Z3))l 
(T (SETQ Z3 (CONSICONSIQUOTE GEN) U3) Z31))) 

(SETQ U3 IPUTON1(CONS Z4A (CDR L)) U4K 

C ?SETQ A U (LIST N (LIST!QUOTE IMPLIES)(SUBSTIQUOTE EQUAL) 
(QUOTE SEQUAL)(CADDR U))(CAOR UK (LIST(QUOTE IHPLIESI 
(CADR UK SUBSTIQUOTE EQUAL2) (QUOTE SEQUAL) (CADDR 0)11)) 
(CONDI (NOT( EQUALICDR L) NMIGO B21)) 

((EQUAL(CAADR UIIQUOTE AND))(SETQ Ul (PUT0N1 L (CADR U))l) 
(T (SETQ Ul (PUTONKCONSICAR L) Z4BXCA0R UIIK) 

(SETQ Z4B (ADD1 Z4B)) 


U (CONSIQUOTE EQUAL) 


B 


B2 


(GO B221 

B21 (SETQ Ul (PUT0N1 L (CADR U))l 

B22 (CONDIIEQUAL Ul (QUOTE DONE))(RETURN Ul)) 

((NOT!EQUALICDR LI N))(SETQ L (CONS Z4A (CDR L)))1 
((EQUAL(CAADDR UIIQUOTE AND))(SETQ L (CONS Z4A Nil) 


(T (SETQ L (CONS Z4A Z4BKI) 
(SETQ U3 (PUT0N1 L (CADDR UK) 
B2A (CONDI(ORINULL Ul)(MEMBER U3 
(RETURN Ul) 

) |) K STOP) IKK 


(QUOTE (NEXT DONE))) I (RETURN U3K) 


00010 

00020 

00030 

00040 

00050 

00060 

00070 

00060 

00090 

00100 

00110 

00120 

00130 

00140 

00150 

00160 

00170 

00180 

00190 

00200 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 

00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 

00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 

00540 

00550 

00560 

00570 

00580 

00590 

00600 

00610 

00620 

00630 

00640 

00650 

00660 

00670 

00680 

00690 
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PUTQN2 LISP 

DEFINED (PUTN2(LAMBOA(L U MXPROG(Ul) OOOIO 

( COND ((NULL L ) ( SETQ L (QUOTE REDIM 00020 

( COND ( (NULL MMSETQ U1 (CONSIQUOTE HEAD) NIL))) 00030 

((ATOM MX SETQ U1 (CONS M NIL))) 00040 

(T (SETQ U1 (CONSICAR M) NIL)))) 00050 

(RETURNIPUTON2ILIST L U1 (CONSIQUOTE NONE) NIL) 24 N) 00060 

U Ml) ))))) 00070 

Dtp INE ( ( ( PUT0N2 (LAMBDA ( L U MXPROGO 00080 

(COND((ON U (APPEND HI H))(RETURNION2 L U Mil) 00090 

( ( EQUAL (CAR L) ( QUOTE A21KG0 A))) 00100 

BO (RETURN(PUT2 L U M)l 00110 

B1 (CONDI(MEHBERICDR U) QM2)(GO BO)) 00120 

( ( MEMBER ( COR U) QM6XG0 B3>) 00130 

<(NULLICHECKMODELICDR U)l)(GO 82))) 00140 

(GO BO I 00150 

B2 (SETQ QM6 (CONSICDR U) QM6D 00160 

83 (CONDI(ATOM M)(RETURN NIL I)) 00170 

(RETURN (QUOTE REJECT)) 00180 

A (CONDI(MEMBERICAR U)(QUOTE!IMPLIES EXISTS IMPLIES2 FEQUAL))I 00190 

(RETURN NIL)) ((NULL QM5)(GO BO)) 00200 

( ( AND ( EQUAL (CAR UXQUOTE MEMBER))( ATOM (CADR U))l(GO BID) 00210 

(GO BO) ))))) 00220 

DEFINE!((ON2(LAMBDA(L U M)(PR0G(U3) 00230 

(CONDUNULL MXGO AID)) 00240 

((ATOM M)(GO A1A))) 00250 

(SETQ U3 (ADDANTECICAR M) U)> 00260 

(CONDUNULL U3XG0 A1C1) 00270 

((NULL(CDR Ml)[RETURN U3)) 00280 

((EQUAL U3 (QUOTE BI)(GO A1C>>) 00290 

(SETQ U3 (ADDCONSQICONS(CADR M) U3)(CAR M))) 00300 

(RETURN N) 00310 

A1A (SETQ U3 (ADDANTEC M U)) 00320 

(CONDUNULL U3I (RETURN NIL)) 00330 

((EQUAL U3 (QUOTE B))(GO A1F))) 00340 

(SETQ U3 (ADDCONSQ U3 Ml) 00350 

(RETURN N) 00360 

A1C (CONDI(NULLICDR M))(RETURN NIL))) 00370 

(SETQ U3 (ADDCONSQ(CAOR M)(CAR Ml)) 00380 

(RETURN N) 00390 

AID (CONDI(NOT(EQUAL(CAR L)(QUOTE A2)))(RETURN NIL))) 00400 

(SETQ U3 (CAR(GFIND U))) 00410 

(CONDUNOTIHEMBERICAR U3XQUOTEIA2 VERA2 )) 1 I (RETURN NIL ) ) 00420 

((MEMBER!QUOTE HEAD)(CADR U31)(RETURN NIL))) 00430 

(SETQ M (SU8STICONSIQUOTE HEAD)(CAOR U3))(CADR U3) U3)) 00440 

(SETQ M (APPEND M (CONS!SIXTH L) NIL))) 00450 

(CONDUORINULL W) (LESSPICADDDR U3) ICADOOAAR HD) 00460 

(SETQ HI ISUBST M U3 HI))) 00470 

IT (SETQ H (SU8ST M U3 HID) 00480 

(RETURN NIL) 00490 

A1F (SETQ U3 (VERIFY(CDR(GFIND Ml))) 00500 

(CONDUNULL U3) (RETURN Nil) 00510 

(RETURN U3I ))))) 00520 

C0MPILEUPUTN2 PUT0N2 0N2D STOP)))) 00530 


PUT2 LISP 

0EFINE(((PUT2( LAMBDA (L U MMPR0G1Z U1 U2 U3 U4 LI) 00010 

(SETQ U1 N) 00020 

(SETQ Z Z4) 00030 

(SETQ Z4 (ADD1 Z4)I 00040 

(CONDI(MEMBERICAR UI(QUOTE(AND OR IMPLIES2)))(GO B4))| 00050 

B5 (SETQ H (APPEND W (CONS (CONS L U) NIL))) 00060 

(CONOUNULL HUGO A2II 00070 

( (ATOM HUGO BID 00080 

((NULLICDR M))(GO A2A))) 00090 

(SETQ U3 (ADDCONSQ(CDR M)I CAR Mill 00100 

(GO A2) 00110 

A2A (SETQ U1 (QUOTE AD 00120 

(GO A2) 00130 

B1 (SETQ U3 (ADDCONSQ Z Ml) 00140 

A2 (CONDUON U (APPEND VV1 VV2DIG0 A3D 00150 

( ( NOT (NULL QF11XG0 C1D) 00160 

A2C (CONDI (MEMBERICAR U) (QUOTE IIMPLIES EQUAL EQUAL2 I)) (GO A6D 00170 

( ( EQUAL ( CAR UXQUOTE IMPLIES2) ) (GO I)) 00180 

( ( AND! NULL CX X EQUAL! CAR UXQUOTE EXISTDXGO ED 00190 

( ( EQUAL (CAR UXQUOTE 0R1XG0 0) ) 00200 

( (EQUAL (CAR UXQUOTE AND)) (GO A7D) 00210 
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A2B ISETQ U4 (ACLVBLE5IATMS Ulll 00220 

(SETO U2 (INVM 0 U4>) 00230 

(CONDI (NULL U2) (RETURNIHFM U U4 U1 L {lilt 00240 

(SETO H ( SUBST (CONS N (COR Ul L till 00250 

(SEIQ 03 (PUTN2(CAR U U2 Ul 00260 

(60 A12AI 00270 

B4 (SETS LI (CAR Lll 00280 

(CONO( (NOKEQUAL LI (QUOTE A2HXSETQ L (CONS N (COR Llllll 00290 

(GO 65) 00300 

A3 (SETQ 03 (VERIFY Ul) 00310 

(COND((EQUAL Ul (QUOTE A))(SETQ Ul (QUOTE B))) 00320 

((EQUAL U3 (QUOTE DONE 111 RETURN U3I) 00330 

((EQUAL U3 (QUOTE NEXT 11(GO A9A))) 00340 

A9B (CONDI (EQUAL I CAR Ul(QUOTE AND)) (GO AlODI 00350 

A8 (RETURN Ul) 00360 

A6 (CONCH (EQUAL!CAR U)(QUOTE EQUAL)I(GO A6AI) 00370 

((EQUAL (CAR U) (QUOTE EQUAL2IHG0 A6BII) 00380 

A6C (CONDI (EQUAL (C ADR UKCADDR UIXGO A3II) 00390 

(GO A2B) 00400 

A6A (CONDI(ONICONSIQUOTE EQUAL2)(COR Ul) VV2)(GO A3))I 00410 

(GO A6C) 00420 

A68 (CONDI(ONICONSIQUOTE EQUAL)(COR U)) VV2I(GO A3)I I 00430 

(GO A6C) 00440 

A7 (SETQ U2 24) 00450 

(CONDI (ANOIEQUALICAAOOR U) (QUOTE MEMBER) 11ATONICARICDADDR U1DKG0 A7A 00460 
)) | 00470 

A7B (SETQ U3 (PUTN2 LI (CAOR UXCONS Z NIL) 11 00480 

(CONDI (NULL U3X60 A12)) 00490 

((MEMBER U3 ( QUOTE (NILL AIIKGO A12I) 00500 

((EQUAL U3 (QUOTE BIXGO A13A)) 00510 

((EQUAL U3 (CUOTE NEXTVIXGO A13BI) 00520 

((EQUAL U3 (QUOTE DONE)((RETURN U3I) 00530 

((EQUAL U3 (QUOTE NEXT 11(SETQ Ul U3)l 00540 

((EQUAL U3 (QUOTE REJECTI)(RETURN NILII 00550 

(T (SETQ U2 U31)) 00560 

A12 (SETQ U3 (PUTN2 LI (CAOOR UXCONS Z (CONS U2 Z4) > > I 00570 

A12A (CONDI(MEMBER U3 (QUOTE(DONE NEXT))I(RETURN U3))) 00580 

(GO A8I 00590 

A7A ISETQ U (LISTICAR UXCADOR UXCADR Ulll 00600 

(CONDI (NULL QM5XG0 A7BI) 00610 

((ANOIEQUALICAAOOR U)(QUOTE MEMBER!)(ATONICARICDADDR Ulll) 00620 

(SETQ U INOMMHICH U>>>> 00630 

(GO A76I 00640 

A10 (SETQ U4 IANDARGS UlI 00650 

A16 (CONDI (NULL U4XG0 A8I) 00660 

I (ONICAR U4I (APPEND Ul UIXGO AISII) 00670 

A17 (SETQ U4 (CDR U4)l 00680 

(GO A16I 00690 

A15 (SETQ U3 (VERIFVICAR U4))) 00700 

(CONDI(EQUAL U3 (QUOTE DONE)((RETURN U3II 00T10 

((EQUAL U3 (QUOTE NEXT) I (GO A15ADI 00720 

(GO A17I 00730 

A15A (CONDI I EQUAL Ul (QUOTE BlI(SETQ Ul (QUOTE NEXTVIII 00740 

(T (SETQ Ul (QUOTE NEXT 11)I 00750 

(GO A17I 00760 

A9A (CONDI(EQUAL Ul (QUOTE BillSETQ Ul (QUOTE NEXTVII) 00770 

(T (SETQ Ul (QUOTE NEXT)))) 00780 

(GO A9B) 00790 

A13B (SETQ Ul (QUOTE NEXT)) 00800 

A13A (SETQ U3 (PUTN2 LI ICADDR U) Zl) 00810 

(GO A12AI 00820 

Cl (CONOI (AND! EQUAL! CAR LI (QUOTE RELIXON U QFll) 00830 

(RETURNIQUOTE DONE)))) 00840 

(GO A20 00850 

0 (SETQ U3 (PUTN2 LI (CAOR U) Zl) 00860 

(CONDI(EQUAL U3 (QUOTE NEXT)IISETQ Ul U3)l 00870 

((EQUAL U3 (QUOTE DONE)I(RETURN U3II) 00880 

(GO A13AI 00890 

I (RETURN!PUTN2 LI (LISTIQUOTE ANDXLISTIQUOTE IMPLIES) 00900 

(SUBSTIQUOTE EQUAL2) (QUOTE SEQUAL) (CAODR UIXCADR Ul) 00910 

(LISTIQUOTE IMPLIES)(CADR U)(SUBSTIQUOTE EQUAL) 00920 

(QUOTE SEQUAL)(CAODR Ulll) Zl) 00930 

E ISETQ LI (SLVX Ul) 00940 

(CONDIIEQ LI N)(RETURNIQUOTE DONE))) 00950 

)(GO A2B) 00960 

))>)) COMPILE((PUT2)) 00970 

STOP))II) 00980 
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SOL VEX LISP 

DEFINE!(ISOLVEXILAMBDA(U) OOOIO 

(PROS!! U1 S U2 03 U4 US U6 OF2 L U? FUI 00020 

(CONDI (NOT l ON (CADDR Ul 23) MAE TURN NIL))) 00030 

(SETQ U7 (GENSVH)) 00040 

(SETS Z3 (APPEND 23 (CONSICONS N U7I NIDI) 00050 

(SETQ FU (CDR U)> 00060 

(SETQ U (SUBST U7 (CADDR U> Ul) 00070 

(SETQ Z Z4) 00080 

A1 (SETQ Ul (CAOOOR Ul) 00090 

(SETQ L N> 00100 

(SETQ U2 (QUOTE(EQUAL EQUAL2)I) 00110 

(CONDI(MEMBERICAR Ul) U2I(GO A2>) 00120 

(I EQUAL(CAR UlllQUOTE ANO))(SETQ Ul (COR Ul))) 00130 

(T (RETURN NIL))) 00140 

(CONDI (HEMBERICAAR Ul) U2HG0 A1CI) 00150 

((EQUAL (C AAR UlllQUOTE MEMBERDIGO A1BII) 00160 

(RETURN NIL) 00170 

A1B (CONDI (EQUAL(CADAR Ul) U7KSETQ L (CAR Ul >) > 00180 

IT (RETURN NIL))) 00190 

(CONDI(MEMBERICAADR Ul) U2IISETQ Ul (CAOR Ul))) 002C0 

(T (RETURN NIL))) 00210 

(GO AID) 00220 

A1C (CONDI(EQUAL(CAADR UlllQUOTE MEMBER 11(SETQ L (CADR Ul))l 00230 

(T (RETURN NIL))) 00240 

(CONDI(EQUAL(CAOR L> U7IISETQ Ul (CAR UlI> > 00250 

(T (RETURN NIL))) 00260 

A10 (SETQ S (CDDR L)I 00270 

A2 (CONDI (MEMBER U7( VBLESICADR UIIIKGO A2AI) 00280 

((MEMBER U7 (VBLESICADDR UDIKGO A2BIII 00290 

(RETURN NIL) 00300 

A2A(C0N0((MEMBER U7 (VBLESICADDR Ul))I(RETURN NIL))) C0310 

(GO A3) 00320 

A2B (SETQ Ul (CONSICAR Ul)(CONSICADDR UlI ICONS(CAOR Ul) NIL I)I) 00330 

A3 (SETQ U2 IPUTN2 NIL ICONSIQUOTE EXIST)(CONS U7 00340 

(CONS Ui NIL))) NIL I> 00350 

(CONOI(EQUAL U2 (QUOTE DONE)I(GO A6EIII 00360 

(SETQ U2 (SCANN L (QUOTE GEN)11 00370 

(CONDI(EQUAL U2 (QUOTE NEXTIIIGO E>I 00380 

((EQUAL U2 (QUOTE DONE))(GQ A4>)> 00390 

(GO El) 00400 

A4 (CONDI(NULL HI)(GO A4A)) 00410 

l(EQUAL(CAAAR HI)(QUOTE VERI)(RETURN U2II) 00420 

(GO A6E) 00430 

A4A (CONOIIEQUAL(CAAAR W)(QUOTE VER)I(RETURN U2I)) 00440 

A6E (CONDI(NULL S)ICO E2III 00450 

E3 (SETQ M (MASK Zl) 00460 

(SETQ QF2 NIL) 00470 

(SETQ Ul (QUOTE MEMBER!) 00480 

(SETQ U3 (PUTN2 NIL (CONS Ul ICONS CXI SI) 00490 

(CAOOOAR U))I 00500 

(CONDI(NULL U3I(RETURN NIL)) 00510 

((MEMBER U3 (QUOTE(DONE NEXT)))(RETURN U3II) 00520 

(RETURN N) 00530 

E2 (SETQ U6 (VERIFY FU)) 00540 

(PRINT FUI 00550 

(PRINT!LI STICADR FU)(QUOTE EQUALS) CXI) I 00560 

(CONOI(EQUAL U6 (QUOTE DONE))(RETURN U611) 00570 

E (SETQ M (MASK 2)1 00580 

(SETQ QF2 NIL) 00590 

(RETURN (QUOTE NEXT I) 00600 

El (SETQ M (MASK Zl) 00610 

(SETQ QF2 NIL) 00620 

(RETURN NIL) DIM 00630 

COMPILE!(SOLVEX)) 00640 

STOP))) 00650 
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SCNX LISP 

DEFINE! (I SCNX(LAMBDA! S L 111 U US) I PROG 102 U3 U4) 00010 

( SETQ U (GENSUBST(CDR U1XCAR Ul) Ul) 00020 

( SETQ U2 (LI ST I QUOTE ( EQUAL A1 A2) M QUOTE (EQUAL2 A1 A2))M 00030 

A (SETQ U3 (CAR U2I) OOOAO 

(SETQ U4 (RPLCE(QU0TE(A1 A2)I NILII 00050 

(CONO( (NULL U4M6Q Sill 00060 

(SETQ U3 (GENSUBST(CAR U4I(COR U4) U3I) 00070 

B (SETQ U4 (NATCH! U3 U)) 00080 

B! (CONDI(NULL U4)(GO Cl) 00090 

( (MEMBER L (COAR U4IKG0 0)1) 00100 

(SETQ U4 (COR U4>I 00110 

(GO Bl) 00120 

C (SETQ U2 (COR U2I) 00130 

(CONOKNULL U2I (RETURN SID 00140 

(GO A) 00150 

0 (SETQ U3 (COAR U4I) 00160 

01 (CONDI IEQUALICAR U3) Nil GO 021) 00170 

((EQUAL(CAR U3) LI(GO 02))) 00180 

(GO E) 00190 

02 (SETQ U3 (COR U311 00200 

(GO Dl) 00210 

E (SETQ U4 ( ALLVBLES (VBLES (CAR U3))M 00220 

El (CONOKNULL U4) (RETURN St) 00230 

((FREEVBLE(CAR U4))IG0 E2)>) 00240 

(SETQ U4 (COR U4I) 00250 

(GO El) 00260 

E2 (SETQ U2 (CAR U4)) 00270 

(SETQ U4 (COR U5)l 00280 

(SETQ U4 (CONSICAR U4>(CONS U2 00290 

(SUBSTICAR U3) L (CDOR U4>)))> 00300 

(SETQ CX N) 00310 

(SETQ L 24) 00320 

(SETQ U4 (PUTN2 NIL U4 (CAOODAR U5D) 00330 

(SETQ CX NIL) 00340 

(CONOKNULL U4) (RETURN S>) 00350 

((EQUAL L 24)(RETURN S>)) 00360 

(SETQ Ul (QUOTE (MEMBER A1 AD) 00370 

(SETQ U4 (RPLCE(QUOTE <A1 A)) NIL)) 00380 

(CONOKNULL U4) (GO GDI 00390 

(SETQ Ul (GENSUBSTICAR U4)(COR U4) Ull) 00400 

G (SETQ U4 (MATCH1 Ul UD 00410 

G1 (CONOKNULL U4) (GO HD 00420 

((MEMBER U2 (COAR U4)I(G0 G2D) 00430 

(SETQ U4 (COR U4I) 00440 

(GO Gl) 0045C 

G2 (SETQ Ul (GENSUBST(COAR U4MCAAR U4I Ull I 00460 

(SETQ U4 (GENSYMD 00470 

(SETQ 23 (CONS(CONS N U4) 231) 00480 

(SETQ Ul ICONS N (SUBST U4 U2 U1D) 00490 

(SETQ S (CDR(GFIND LID 00500 

(SETQ W ( SUBST( SUBST U4 U2 S) S HD 00510 

(SETQ U3 (SUBST U4 U2 ICAR U3DI 00520 

(CONDI(NULL QF2)(SETQ QF2 (CONS U4 U3))> 00530 

(T(SETQ QF2 (CONS U4 (SUBST U3 (CAR QF2KC0R QF2DDD 00540 

(GO HI) 00550 

H (CONOKNULL QF2) (SETQ QF2 (CONS U2 ICAR U3III) 00560 

(T ( SETQ QF2 (CONS U2 (SUBSTICAR U3) (CAR QF2KCDR QF2IDID 00570 

(SETQ Ul N) 00580 

HI (SETQ L (ROFH LD 00590 

HI A ( CONO ( I NULL L) I RE TURN U1D) 0060C 

(SETQ S (SLVXICDAR L)D 00610 

(CONDI(EQ S NI(RETURN (QUOTE DONE)))) 00620 

(SETQ L (COR L)> 00630 

(GO H1A) 00640 

DID STOP)))) 00650 
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SLVX LISP 

DEFINE*((SLVXILAMBDAIU)(PR0GIU1 U2> OOOIO 

(CONDUNULL QF2HG0 ADI) 00020 

(SETQ CXI (SOLVXPICDAODR U)(CAR QF2I)) 00030 

(CONOMNULL CXI l (GO ADI) 00040 

( SETQ CXI (SUBST CXI (CAR QF2KCDR QF2) ) ) 00050 

(RETURN N> 00060 

A1 (SETO CXI (SOLVXPICDADDR UKCADR UI ) I 00070 

(CONDI(NOTINULL CXI 1 I(RETURN Nil) 00080 

(SETO U1 (CADDR U>1 00090 

(SETQ U2 (GMATCHICADR U1) (CADDR Ul)l) 00100 

(CUNDUNULL U2) (RETURN NIL) I 00110 

((NOTIEOUALICAAR U2KCADR U) I ) (RETURN NIL)) 00120 

((NULL QF2)(SETQ CXI (CADR U2))) 00130 

(T (SETQ CXI (SUBSTICADR U2MCAR 0F2)(CDR QF2))D) 00140 

(RETURN N) ))))) 00150 

DEFINE!(<S0LVXP(LAMBDA(U3 UHPROGtUl P PP) 00160 

(SETQ P (QUOTE »PROD)) 00170 

(SETQ PP (QUOTE ‘INVERSE)) 00180 

A (SETQ U1 (CAR U3)) 00190 

(CONDI(ATOM U1KG0 All) 00200 

( (EQUAL (CAR U1) P ) ( GO BID 00210 

( ( EQUAL (CAR Ul) PPDGO CUD 00220 

(RETURN NIL) 00230 

A1 (CONDI ( EQUAL Ul U)(RETURN (CADR U3DD 00240 

(RETURN NIL) 00250 

B1 ICONDI(MEMBER U (VBLES(CADR Ul)))(GO B2))) 00260 

(SETQ U3 (LIST! CAOOR U1KLIST P (LIST PP (CADR Ull 00270 

(CAODOR Ull)(CADR U3)(CADODR Ul)))) 00280 

(GO A) 00290 

B2 (CONDI(MEMBER U (VBLES(CADDR Ull)I(RETURN NIL))) 00300 

(SETQ U3 (LI ST (CADR UlMLIST P (CADR U3XLIST PP (CAOOR Ul) 00310 

(CADODR Ul) ) ( CAOODR U1DI) 00320 

(GO A) 00330 

Cl (SETQ U3 (LISTICADR U1KLIST PP (CAOR U3) (CADDR Ul)))) 00340 

(GO A) Dll) 00350 

COMPILE!(SQLVXP)) STOP)))))) 00360 


HOMOMF LISP 

DEFINE!((HOMOMF(LAMBDAIL)(PR0GIU3 U4) 00010 

(SETQ U3 Z4) 00020 

(SETQ U4 (PUTN2 NIL (CADR L) NIL)) 00030 

(SETQ U4 (SCANW NILIQUOTE GEN))) 00040 

(SETQ QF1 ( ONLY (ROFW U3)(QUOTE (REL REL1DD 00050 

(SETQ H (MASK U3)) 00060 

(SETQ U3 Z4> 00070 

(SETQ U4 (PUTN2 NIL (CADDR L) NIDI 00080 

(CONDI(NOTIEQUAL U4 (QUOTE DONE)))(SETQ U4 (SCANW NIL (QUOTE GEN))))) 00090 

(SETQ QF1 NIL) 00100 

(SETQ H (MASK U3)) 00110 

(CONDI(EQUAL U4 (QUOTE DONE))(SETQ U4 (VERIFY L) ) I) 00120 

(RETURN U4) Dll) 00130 

OEFINEI((ONLYILAMBDAIU L) 00140 

(CONDUNULL U) NIL)((MEMBER (CAAAR U) DtCONSICAR U) 00150 

(ONLY (CDR Ul LDIIT (ONLY(COR U) LD) Dll 00160 

STOP)))) 00170 
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GENFCN LISP 

DEFINE U (GENFCN(LAMBOAIL)(PROG(U U1 UZ U3 U4 U5 U6 St OOOIO 

(SETQ U4 (CQNS(GENSYM)(GENSVH)11 00020 

(SETQ Z3 (CONSICONS N (CAR (Mil Z3)l 00030 

(SETQ Z2 (CONS (CONS (QUOTE RES)(COR U4)) Z2)l 00040 

(CONDI (EQUAL (CAR LKCAOR Li I (60 El 11 00050 

(SETQ U6 (CAOR LI) 00060 

A1 (SETQ U3 Z4) 00070 

(SETQ U (GENSVH)I C0080 

(SETQ Z3 ICONS(CONS(QUOTE GEN) U) Z3I) 00090 

(SETQ U1 (PUTONKCONS Z4A Z4B) (LI ST (QUOTE MEMBER) U U6)) I 00100 

(SETQ U1 (PUTN2 NIL (L1STIQU0TE DUMMY) U) NIL!) 00110 

(SETQ U1 (SCANU N (QUOTE GEN))) 00120 

(SETQ U1 (CDRIROFU U3)>) 00130 

(SETQ W (MASK U3)) 00140 

(SETQ U3 (MEM0F1 VV1 (QUOTE MEMBER))) 00150 

(CONOUNULL SI (SETQ U2 (CONSILIST U6 U Ul NIL)))) 00160 

A2 (CONOUNULL U1HG0 02))) 00170 

(SETQ U (GENVBLE(CDAR UlI)) 00160 

(CONOUNULL U) ( GO 03))) 00190 

(SETQ U5 U3) 00200 

A5 (CONOUNULL U5) (GO 031) 00210 

((EQUAL U ICAAR U5))(G0 A6>)> 00220 

(SETQ U5 (COR U5I) 00230 

(GO A5) 00240 

A6 (CONOUNULL SHGO S2> > I 00250 

(SETQ U5 (CAOAR U5)l 00260 

ISETQ U6 U2> 00270 

A7 (CONOUNULL U6) (GO A8)l 00280 

((EQUAL U5 (CAAR U6))(G0 0))) 00290 

(SETQ U6 (COR U6)) 00300 

(GO A7) 00310 

S2 (CONDI(EQUALI CAR U(CAOAR U5))(G0 C))> 00320 

(SETQ U2 (APPEND U2 (CONS(LIST(CAOAR U5) U 00330 

(CAODAR Ul)) NIL))) 00340 

(GO AS) 00350 

03 (CONOUNULL SMSETQ U2 (APPEND U2 (LISTILIST Nil) III 00360 

A8 (SETQ Ul (COR Ul>I 00370 

(GO A2) 00380 

02 (CONDI(EQ S N)(RETURN NIL)11 00390 

(SETQ S N) 00400 

(SETQ U6 (CAR L)> 00410 

(GO All 00420 

C (SETQ U6 (SUBST(CAR U4) U (CAODAR Ul111 00430 

Cl (RETURN(LIST!QUOTE IMPLIES!(LIST(QUOTE MEMBER) 00440 

(CAR U4I(CAR LI)(LIST!QUOTE EQUAL)(LIST(COR 041 00450 

(CAR LKCAOR L) (CAR U4M U6>>> 00460 

0 (RETURN!LIST(QUOTE EQUAL I(LIST(COR U4I(CAR L) 00470 

(CAOR L)!SUBST(CAR U4> U (CAODAR Ulll) 00480 

(SUBST(CAR U4I(CAOAR U6I(CADOAR U6IIII 00490 

E (SETQ U6 (CAR U4I) 00500 

(GO Cll 00510 

Dll) STOP) I 1)1) 00520 
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MLDFN LISP 

DEFINE! ( COMPOSITION!LAMBDA(U VB) (PROG(Ul) 

A CCONDC(ATOM Ul(RETURN NIL)! 

(CONCCAR Ul Z2) (SETQ Ul ICONSILISTICAR UICCADR U) 

CCAOOR Ul) UIIII 
IT (RETURN NIL 111 
(SETQ U (CADOOR Ul) 

(CONDI(EQUAL U VB) (RETURN Ul))) 

(SO A) ))>>> 

DEFINE!(IMLOFNILAMBDA(EQN)(PROG(Ul U2> 

(PRINT(OUOTE(MUST PROVE RELATION NELL DEFINED))) 

(PRINT!QUOTE(IS INVERSE RELATION ONE TO ONE)11 
(SETQ Ul (6ENSYMI) 

(SETQ U2 (CDAR EQN!) 

(SETQ 22 (CONSICONS(QUOTE RES) Ul) 2211 

(SETQ Ul (MONOMFILISTIQUOTE EQUALKLIST Ul (CAOR U2) 

(CAR U2XCADR EQN)) (CADDR U2I) NIL)) 

(COND((NULL Ul)(RETURN NIL))) 

(SETQ 26 NIL) 

(SETQ LON NIL I 
(SETQ Ul NIL) 

(SETQ U NIL) 

(RETURN Tl III)) 

DEFINE! I (ULDFNXLAMBDAIUA U5 U6 U7)(PR06(FV S Ul U2 U3) 

(SETQ Ul (CONS(SENSYM)(GENSVH)>I 

(SETQ 23 (CONS(CONS(QUOTE RES)(CAR Ul)I(CONS(CONS(QUOTE RES) 

(COR UlIt 23)11 
(SETQ U3 (GENVBLE (Ml) 

CO (CONOMATOM U5IIGO Cl)) 

((EQUAL (CAR U511 QUOTE •LCOSETIMGO C4II) 

Cl (SETQ U2 (L1ST(QUOTE EQUAL)(LIST(QUOTE *PROOI(LIST(QUOTE •INVERSE) 
(SUBST(CAR Ul) U3 U5I(CADR U6)I(SUBSTICDR Ul) U3 U5> 

(CADR U6I)(LIST(QUOTE ‘IDENTITY!(CAOR U6III) 

C2 (CONDI (NULL SMGO C3)) 

((NULL QMS)(GO C2A))I 

(SETQ FV (LISTIQUOTE MEMBER) U3 IGENSET U3 U7)11 

(SETQ FV (PUTON1ICONS Z4A Z4BI (LI ST (QUOTE AND) (SUBSKCAR Ul) U3 FV) 
(SUBSTICDR Ul) U3 FV))>> 

(SETQ Z4B (ADOl Z4BII 

C2A (SETQ FV (SULVEILISTIQUOTE IMPLIESIU2 SI)) 

(CONDI(NULL FV)(RETURN NIL))) 

(RETURN N) 

C3 (SETQ S U2) 

(SETQ U5 U4) 

(SETQ U6 (CDR U6I) 

(GO COI 

C4 (SETQ U2 (LISTIQUOTE MEMBER)(LISTIQUOTE *PROOI(LIST 

(QUOTE *INVERSE)ISUBST(CAR Ul) U3 (CAOR US))ICAOODR U5I) 

(SUBSTICDR Ul) U3 (CADR USMICAODOR US) I (CADDR USD) 

(GO C2I 

II))) STOP) I Ml 11 
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HONOMF LISP 

DEFINE!UMONONFI LAMBDA (EQN SI(PROGIU1 U2 U3 U4 US U6 U7 FV) OOOIO 

(SETQ U6 (CAOR EQN)) 00020 

( CONDI (FREEVBLE(CADDDR U6DIG0 BID 00030 

A1 (SETQ U2 (CONS Z4A Z4II 00040 

(SETO FV (CONS VV1 VV2)I 00050 

(SETQ U4 (GENSYKI) 00060 

(SETQ Z3 I CONS(CONS(QUOTE GEN1 U4> Z3I) 00070 

(SETQ U3 (PUTONKCONS Z4A Z4B) (LI ST( QUOTE MEMBER I U4 (CAOR U6IIII 00080 

(SETQ U3 (PUTN2 NIL (LIST(QUOTE DUMMVl(SUBST U4 00090 

(CAODOR U6I U6II NIL)I 00100 

(SETQ U3 (SCANH N (QUOTE GENII! 00110 

(SETQ U3 Z4) 00120 

(SETQ VV1 NIL)(SETQ VV2 NIL) 00130 

(SETQ U4 (PUT0N1 (CONS Z4A Z4B) EQNII 00140 

(SETQ U4 (SCANH NIL (QUOTE GENII) 00150 

(SETQ U4 IGFINO U3II 00160 

(CONO((NULL U4)(RETURN NIL))) 00170 

(SETQ U5 (CAOOR(COADDRIGFIND(CAAOAR U4))))l 00180 

(SETQ U4 ICADDR U4>) 00190 

(SETQ 26 NIL) 00200 

(SETQ LON NIL) 00210 

(SETQ HI NIL) 00220 

(SETQ H NIL) 00230 

(SETQ 24 (CDR U2))(SETQ Z4A (CAR U2I) 00240 

(SETQ VV1 (CAR FVIIISETQ VV2 (CDR FV)) 00250 

(SETQ U7 QM2) 00260 

(SETQ QM2 FQM2)(SETQ QM3 FQM3IISETQ QM4 FQM4I(SETQ QM6 NIL) 00270 

(CONDUNULL S) (RETURN (HL0FN1 U4 U5 U6 U7I)) 00280 

((ATOM UAH GO A2») 00290 

((EQUAL(CAR U4HQUOTE *LCOSET))(GO A6III 00300 

A2 (SETQ U1 (GENVBLE U4)> 00310 

(CONOKNULL U1HG0 A8II) 00320 

(SETQ U3 (SOLVXP(LIST U4 (LISTIQUOTE •IDENTITY) 00330 

(CAODR U6II) UD) 00340 

(CONDUNULL U3KG0 A8II) 00350 

(SETQ FV (PUTONKCONS 24A Z4BI (LIST C QUOTE EQUAL) U1 U3III 00360 

(GO 01 00370 

A6 (SETQ FV (PUTONKCONS Z4A 248) (L!ST(QUOTE MEMBER) 00380 

(CAOR U4HCADDR U4)))l 00390 

(SETQ U1 (GENVBLE U4I) 00400 

(GO 01 00410 

AS (SETQ FV (PUTONKCONS 24A Z4B) (LISHQUOTE EQUAL) U4 00420 

(LIST(QUOTE •IDENTITY)(CAODR U6))))) 00430 

0 (SETQ Z4B IA0D1 Z4BI) 00440 

(CONO((NULL QM5)(GO DO)) 00450 

((NULL U1)(GO DO))) 00460 

(SETQ FV (PUTONKCONS Z4A 2481 (LISHQUOTE MEMBER) Ml (GENSET U1 U7)))> 0047C 

(SETQ Z4B (A001 248)1 00480 

DO (SETQ FV (SOLVE!LIST(QUOTE EQUAL) U5 00490 

(LISTIQUOTE •IDENTITY)(CADR U6)))l) 00500 

(CONDUNULL FV) (RETURN NIL I)) 00510 

(RETURN N) 00520 

8 (SETQ U1 (COMPOSIT ION(CAODR EQN)(CADOOR U6II) 00530 

(CONDUNULL U1KG0 All)) 00540 

61 (CONDI (0N( L 1ST (QUOTE ONEONE I (CAR Ul)) VV1MSETQ U1 (CDR U1D) 00550 

(T (GO All)) 00560 

(CONDUNULL Ul> (GO B2II) 00570 

(GO Bl) 00580 

82 (PRINT!QUOTE!FUNCTION IS A COMPOSITION OF MONOHORPHISMS111 00590 

(RETURN N) 00600 

))))) STOP))))))) 00610 
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VERIFY LISP 

OEFINEII(VERIFYILAMBDAIUI 
(PROGIU1 U2 U3 U4 U5 U6 U7 TT NN Gl 
(SETQ G (QUOTE A)) 

AO (SETQ U2 Ml) 

A1 (CONDI(NULL U2)(GO A2)> 

((EQUAL G (QUOTE A))(GO A1AI) 

((EQUAL!CAR U6)(CAODDAAR U2)XGO A3)I) 

A18 (SETQ U1 (APPEND U1 (CONSICAR U2I NIL))) 

(SETQ U2 (COR U2)I 
(GO Al) 

A1A (CONDI(EQUAL U (CDAR U2))(GO A3))) 

(GO Aid 

A3 (SETQ U3 (CAAAR U2)) 

(CONDI(MEMBER U3 (QUOTE!VER VERA2 IRR)))(GO A6)) 

((EQUAL G (QUOTE A))(GO A3C)) 

{(EQUAL G (QUOTE BI)(GO A30)) 

((ONLYMEMBICDR U6) (CADAAR U2IKGO A3C1III 
A3C3 (SETQ U7 (OELTF(COR U6I(CADAAR U2))) 

(SETQ U3 (CONS U3 (CONS 07 (CDDAAR U2>))> 

ABE (SETQ U2 (CONSICONS U3 (CDAR U2))(CDR U2))) 

A98 (CONDI(NULL TT)(SETQ Ml (APPEND LI U2))) 

(T (SETQ M (APPEND U1 U2)>)> 

(GO AT) 

A30 (CONDI (MEMBERICDR U6) (CAOOAAR U2IXGU A3C) I) 

(SETQ U7 (DELPRICOR U6)(CAODAAR U2))) 

(SETQ U3 (CONS U3 (CONSICAOAAR U2)(C0NS U7(CDR(CDDAAR U2»))))» 
(GO ABE) 

A3C2 (CONDI(NEMBERIQUOTE HEAD)(CAOAAR U2))(G0 A3C3))1 
(GO A30 

A3C1 (CONDI(EQUAL U3 (QUOTE A2))(G0 A3C2I)I 
A3C (SETQ U3 (CAR U2)) 

(SETQ U2 (COR U2)I 

(CONDI(EQUAL G (QUOTE C))(GO A3FI) 

I(EQUAL G (QUOTE A))(SETQ U6 (CONSICADODAR U3) NIL)))) 

(SETQ U4 (MIRGEAITACKICADAR U3)(CAR 06)) U4)l 
(SETQ US (HIRGEA(TACKICADDAR U3)(CAR U6II US)) 

(CONDI I EQUAL ICAAR U3)(QUOTE A2))(G0 A4)) 

1 ( EQUAL (C AAR U3MQU0TE PNT))(SETQ NN (QUOTE NEXT)))) 

(SETQ U3 (CONS(CONS(QUOTE VER)(CDAR U3))(CDR U3))) 

A3A (SETQ U2 (CONS U3 U2)) 

(GO A9B) 

A3F (SETQ U5 (HIRGEA(TACK(CADOAR U3)(CAR U6)l U5)l 

(CONDI(EQUALICAAR U3I(QUOTE PNTI)(SETQ NN (QUOTE NEXT)))) 

(SETQ U3 (CONS!CONS(QUOTE IRR)(CDAR U3))(C0NS N (CDR U3)))l 
(GO A3AI 

A4 (SETQ U3 (CONS(CONS(QUOTE VERA2I(CDAR U3))(CDR 03))) 

(GO A3A) 

A2 (COND((NULL TT)(GO A2A))) 

(GO A7) 

A2A (SETQ TT N) 

(SETQ U1 NIL) 

(SETQ U2 Ml 
(GO All 

A6 (CONDI(EQUAL G (QUOTE AIIIRETURN NIL))) 

AT (CONDXEQUAL G (QUOTE C))(GO A7A)I) 

(SETQ G (QUOTE B>) 

(CONDI(NULL U4)(GO A7A))) 

(SETQ U6 (CAR U4)I 
(SETQ U4 (CDR U4)) 

A7B (SETQ TT NIL) 

(SETQ U1 NIL) 

(GO AO) 

A7A (CONDI (NULL U5XG0 Cl))) 

(SETQ U6 (CAR U5)) 

(SETQ US (CDR U5>) 

(SETQ G (QUOTE C)) 

(GO A78) 

Cl (CONDI (NULL W1XG0 C2> ) 

({ EQUAL (CAAAR W1XQU0TE VER ) X RETURN (QUOTE DONE)))) 

(RETURN NN) 

C2 (CONDI(EQUALICAAAR H)(QUOTE VERI XRETURN!QUOTE DONE)))) 
(RETURN NN) ))))) 

COMPILE!(VERIFY)) 

STOP) 
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INVM LISP 

DEFINE! ( ( INVMILAMBOAIU U2)(PR0C(U1 U4 US LU 
(SETQ LL Q) 

(CONDI (MEM8ER(CAR Ul (OUOTEI IMPLIES FEQUAL EXISTS))) 

(RETURN NIL)) 

((NOT(ANDI MEMBER(QUOTE »PROOI U2>I MEMBER(QUOTE •INVERSE) U2)l) 
(RETURN!INVM2 U U5 U2))l) 

BA (CONOUNULL LL > (RETURN! INVM2 U US U2)D) 

(SETQ Ul (PMATCHICAR LL) U)I 
83 (CONOUNULL U1HGO Bl>>) 

(SETQ U4 (INVSUBIPRODARGSICOAR Ul)l)> 

(CONOUNULL U4IIG0 B2))) 

(SETQ U IINVREDOICDAA Ul) U4 U (CAR LL))) 

(SETQ US U) 

B2 (SETQ Ul (CDR UlI) 

(GO B3) 

01 (SETQ LL (CDR LL)) 

(GO 84) ))))> 

DEFINE!((INVH2(LAMBDA(U U5 U6)(PRQG(U1 U2 U3 U4 SI) 

(CONOUNULL U5KSETQ SI Nil) 

(CONOUMEMBER(QUOTE ^INVERSE) U6IIG0 Ell)) 

(SETQ Ul (LIST NIL NILI) 

(SETQ U2 (LIST NIL)) 

(SETQ U3 (LIST NIL)) 

(CONOU AND (MEMBER I QUOTE «PROD) U611 MEMBER (QUOTE •IDENTITY) U6>) 
(SETQ U4 (LIST N Nil) 

IT (SETQ U4 (LIST NIL NILI))) 

(GO E9) 

El (SETQ U2 (LIST N)> 

(CONDUMEMBER (QUOTE •PROD) U6KGO E21)) 

(SETQ Ul (LIST NIL NIL)) 

(SETQ U4 (LIST NIL NIDI 

(CONDI(MEMBER(QUOTE •IDENTITY) U6)(SETQ U3 (LIST Nil) 

(T (SETQ U3 (LIST NIL)))) 

(GO E91 

E2 (SETQ Ul (LIST N N>> 

(CONDI (MEMBERIQUOTE •IDENTITY) U6MG0 E3)>) 

(SETQ U3 (LIST NIL)) 

(SETQ U4 (LIST NIL NILII 
(GO E9) 

E3 (SETQ U3 (LIST Nil 
(SETQ U4 (LIST N N>> 

E9 (SETQ U3 (SIFTIAPPEND Ul (APPENO U2 (APPEND U3 U4IIIII 
A (CONOUNULL U3KG0 Dll) 

(SETQ U2 (CAAR U3)) 

(SETQ US (CAOAR U3)) 

(SETQ Ul (RPLCE(QUOTE(A1 A)) NILI) 

(CONOUNULL Ul) (GO Bill 

(SETQ U2 (GENSUBSTICAR U1MCDR Ul) U2I) 

(SETQ US (GENSUBSTICAR U1MCOR Ul) U5I) 

B (SETQ Ul (MATCH1 U2 UlI 
(CONOUNULL Ul)(GO CD) 

(SETQ SI NIL) 

(SETQ U IRPTSUB U5 U2 U Ull) 

C (SETQ U3 (CDR U3>) 

(GO A) 

0 (CONOUNULL SI ((RETURN U) > I 
(RETURN NIL) DID 
DEFINE!((SIFT(LAMBDA IU)(PROGIU1 U2I 

(SETQ Ul (QUOTEI((•PROD A1 (‘INVERSE A1 A) A) 

(•IDENTITY A)I((•PROD(»INVERSE A1 A) A1 A) 

(•IOENTITY A))((*INVERSE!•INVERSE A1 A) A) All 
( ( • INVERSE!•IDENTITY A) A) (•IDENTITY AD 
((•PROD A1 (•IDENTITY A) A) Al) 

((■PROD (•IDENTITY A) Al Al ADD) 

A (CONOUNULL U) (RETURN U2D 

((EQUAL(CAR U) NilSETQ U2 (CONS(CAR U1)U2!III 
(SETQ U (CDR U)) 

(SETQ Ul (COR Ul)) 

(GO A) Dll) 

COMPILE!(INVMII 
STOP))}) 
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MODEL LISP 

DEFINE!((MODELMAKE(LAMBDA(U)(PROGIUl U2 U3J 00010 

(SETQ U1 QM1) 00020 

AO (CONDI(NULL 01)(RETURN NIL)) 00030 

((EQUAL (CAR UHCAAAR Ul))(60 ADM 000*0 

(SETQ Ul (COR 01M 00050 

(GO AO) 00060 

A1 (SETQ 01 (CAR Oil) 00070 

(SETQ U2 (RPLCE(ALLVBLES(VBLES(CDAR 01)))(ALLVBLES(VBLES(COR U)))>) 00080 

(CONOKNULL 02) (GO A1B))) 00090 

(SETQ 01 (GENSOBST t CAR 02HCDR 02) 01>> 00100 

A1B (SETQ 01 (GENSUBSTICOR 0) (CDAR 01MC0R 01)1) 0011C 

(SETQ 02 (CAR 01)1 00120 

A2 (CONDI(NOLL U2)(GO A3))) 00130 

(SETQ U3 (ALLVBLES(CAR 02))I 001*0 

(SETQ 0 QM3I 00150 

(SETQ QM3 NIL) 00160 

A2A (CONDI (NOLL OXGO A2C)) 00170 

( (NOLL (MEET (CAR 0) 031) (SETQ QM3 (CONS (CAR 0) QM3M) 00180 

(T (GO A2B))) 00190 

A2A1 (SETQ 0 (COR 0)) 00200 

(GO A2A) 00210 

A2B (SETQ 03 (ALLVBLES(APPEND(CAR 0) 03))) 00220 

(GO A2A1) 00230 

A2C (SETQ QM3 (CONS 03 QM3M 002*0 

(SETQ 02 (CDR 021) 00250 

(GO A2) 00260 

A3 (SETQ 01 (COR 01)) 00270 

A3A (CONDI(NOLL 01)(RETURN NIL)) 00280 

((EQUAL (CAAR U1XCA0AR U1))(G0 A3BIM 00290 

(SETQ QM* (SNMENBICAR U1XC0NSICADAR Ul) (CONSICAAR Ul) NIL)) QM*) ) 00300 

A3B (SETQ Ul (CDR Ul)) 00310 

(GO A3A) ))))) „ 00320 

OEFINEII(CHECKMODEL(LAMBDA!U)(PROG 101 02 U3) 00330 

(SETQ Ul QM2) 003*0 

AO (CONDI (NULL U1XG0 Al)) 00350 

1 ( EQUAL (CAAR U1XCAR U1XSETQ U2 (CONSICADAR Oil U2)D) 00360 

(SETQ 01 (CDR Ul)) 00370 

(GO AO) 00380 

Al (CONOKNULL U2) (RETURN T) I) 00390 

(SETQ Ul QM3) 00*00 

Al A (CONOKNULL Ul) (RETURN TD 00*10 

( (MEMBER(CADR UKCAR UDXGO A2D) 00*20 

(SETQ Ul (CDR UD) 00*30 

(GO AlA) 00440 

A2 (SETQ Ul ICAR U1M 00450 

(SETQ U3 02) 00*60 

A2A (CONDI(NULL U2)(RETURN NIL)) 00470 

((MEMBERICAR U2> 01XG0 A3)) I 00*80 

(SETQ 02 (CDR U2D 00*90 

(GO A2A) 00500 

A3 (SETQ Ul QM*) 00510 

(SETQ U2 NIL) 00520 

A3A (CONOKNULL U1XG0 A*)) 00530 

((EQUAL (CAAR U1XCADR UMISETQ U2 (CONSICADAR UD U2DII 005*0 

(SETQ Ul (CDR 01)1 00550 

(GO A3A) 00560 

A* (CONOKNULL U2) (RETURN Till 00570 

AAA (CONDI(NULL U3)(RETURN NIL)) 00580 

((MEMBERICAR U3) U2XSETQ U3 (CDR U3D) 00590 

(T (RETURN T))) 00600 

(GO A4A) ))))) 00610 

DEFINE!((MEET!LAMBOA(Ul U2) 00620 

(CONOKNULL 01) NIL) ( (MEMBERICAR 01) U2) (CONS(CAR Ul) (MEET 00630 

(CDR Ul) U2IIIIT (MEETICDR U1I U2)l) )))) 006*0 

DEFINE! KSMHEMBILAMBDAIU1 02 L) 00650 

(CONOKNULL LXCONS Ul NIL)) ((EQUAL Ul (CAR LI) L> 00660 

((EQUAL U2 (CAR OKCOR L)) (T (CONSICAR L11SWMEMB 01 02IC0R LIIDIDD 00670 
DEFINE!((NOHWHICH(LAMBOAIU)(PR06IU1) 00680 

(SETQ Ul (CDADR UD 00690 

(CONOKMEMBER Ul QM6) (RETURN U)) 00700 

((MEMBER Ul QM2XG0 A)) 00710 

((NULL (CHECKMOOEL 01))(RETURN U)I) 00720 

A (RETURN(LISTICAR UXCADOR UXCADR UD) DM) 00730 

DEFINE! KGENSETILAMBDAIU L) (PROGI) 007*0 

A (CONOKNULL LXGO BD 00750 

((EQUAL (CAAR L) U) (RETURNICADAR LID) 00760 

(SETQ L (COR LD 00770 

(GO A) 00780 

B (PRINT!QUOTE(GENSET IS RETURNING NONSENSE)I) 00790 

(RETURN(QUOTE XX)) )>>>) 00800 

STOP))I) 00810 
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GTFRM LISP 

DEFINE!((GTFRM(LAMBDA(U L Z LN) 00010 

(PROGIU1 U2 U3 U4 S) 00020 

A (CONDI(EQUAL L (QUOTE YDISETQ U4 Y) I 00030 

((EQUAL L (QUOTE XIXSETQ U4 XI) 0004C 

(T (SETQ U4 XXIJ) 00050 

A1 (CONDI(NULL U4)(GO A2I) 00060 

((EQUALICAAAR U4)(CAR U))(GO All))) 00070 

(SETQ U4 (COR U4I) 00080 

(GO All 00090 

All (COND{(NULL(CDAR U4))(G0 A1B))) 00100 

(SETQ U1 (CDAAR U4>) 00110 

(SETQ U2 (COAR U4)) 00120 

(SETQ U3 (ALLVBLES(V8LES U2))) 00130 

(SETQ U3 (RPLCEF U3 (ALLVBLES(VBLES(CDR Ul)))) 00140 

(CONDI(NULL U3)(GO A1A))) 00150 

(SETQ U2 (GENSUBST(CAR U3)(COR U3) U2I) 00160 

(SETQ Ul (GENSUBST(CAR U3HCDR U3) Ul)) 00170 

A1A (SETQ U2 (GENSUBST(CDR U) Ul U2)) 00180 

(CONDI(ORtEQUAL L (QUOTE X))(EQUAL S Nil(RETURN 00190 

(PUTN2 NIL U2 Z))) 00200 

((EQUAL L (QUOTE XXIMGO B>) 00210 

(T (RETURN(PUT0N1(CONS Z4A LN) U2)))) 00220 

A1B (CONDI(EQUAL L (QUOTE X)I(SETQ S N)) 00230 

(T (RETURN NIL))) 00240 

(SETQ L (QUOTE Y>> 00250 

(GO A) 00260 

A2 (CONOI(EQUAL L (QUOTE X))I PRI NT(QUOTE 00270 

(CAN YOU GIVE HE A SUFFICIENT CONDITION FOR)))) 00280 

IT (PRINT (QUOTE (CAN YOU GIVE ME A DEFINITION OF))D) 00290 

(PRINTICAR U)) 0030C 

(SETQ Ul (RDFLX(D) 00310 

(CONDI(EQUAL Ul (QUOTE NO))(SETQ Ul (CONSICONSICAR Ul 00320 

NIL) NIL)))) 00330 

(CONOI(EQUAL LIQUOTE Y))(SETQ Y ICONS Ul Y))) 00340 

((EQUAL LIQUOTE X)I(SETQ X (CONS Ul XIII 00350 

(T (SETQ XXICONS Ul XXIII) 00360 

(SETQ U4 (CONS Ul NIL)) 00370 

(GO All) 00380 

B (CONDI(NOTION U2 LN)>ISETQ LN (APPENO LN 00390 

(CONSICONS N U2> NIL))))) 00400 

(RETURN LN) 00410 

))))) STOP)))) 00420 
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HATCH LISP 

OEFINE(( ( AOOCCJNSC (LAMBDA(Z HI (PR0GIU3 U4 U5I 
(SETQ 03 (CARIGF1N0 MW) 

(SETQ U5 (APPENDMICADDR U3) ZW 

(SETQ'u^lCONSICA^UWICONStCAOR U3KC0NS U5 (CDOOR U3IIII) 

(CONDI(OR I NULL N)(LESSP H (CAODOAAR HI)) 

(SETQ HI (SUBST U4 U3 HI)I» 

(T (SETQ H (SUBST UA U3 H))>) 

(RETURN NIL) >1)I) 

DEFINE!((APPENDM(LAM6DA(L Z) 

(CONDI(MEMBER Z L) NIL) IT (CONS Z L)ll 111) 

DEFINE!((ADDANTECtlAMBDAIM U)(PR0GIU3 UA U5) 

(SETQ U3 (CAR(GFINO U>>) 

(CONDI(GMEH8 M (CADDR U3))(RETURN NIL)) 

((EQUAL M (CADDDR U3))(RETURN NIL)I 
((NULLIANDEND M (CADDR U3W) (RETURN NIL) I 
<(MEMBER(CAR U3) I QUOTE (VER VERA2) I) (RETURNIQUOTE BID) 

A2A (SETQ U5 IAPPENOMICAOR U3I MW 
(CONDI (NULL US) (RETURN NIDI) 

(SETQ UA (CONSICAR U3(ICONS U5 (CODR U3IIW 
CCONDI(OR(NULL HI(LESSPICAOOOR U3)(CAOOOAAR Hill 
(SETQ HI (SUBST UA U3 Hill) 

(T (SETQ H (SUBST UA U3 HID) 

(RETURN (CADDDR U3W IWW 
OEFINE(((ANOARGSILAMBDAIU)I PROG() 

(CONDI(EQUALICAADR U)(QUOTE AND))(GO All) 

((EQUAL(CAADOR U) (QUOTE ANOWIGO A2W) 

(RETURNICOR UW 

Al (CONDI (EQUAL! CAADOR Ul (QUOTE ANDIKGO A3IW 
(RETURN!APPENO(COR U)(ANDARGSICADR U)lII 
A2 (RETURN! APPEND (CDR UI (ANDARGS (C AOOR 0»»> I 

A3 IRETURN(APPEND!COR Ul I APPEND! ANOARGS(CADR UW (ANOARGSICADDR UIWW 

DEFINE(I(0N2AVER!LAMBDAIU)(PROG!UW 
(SETQ Ul (GFINO UW 

(COND!(NULL Ul)(RETURN NIL)) .... 

((EQUAL 1C AAR Ul) (QUOTE VERA211 (RETURN(CAOAR UIWW 
(RETURN NIL) 1)1)1 

DEFINE!((MATCH1(LAMBOAIU L)(PR0G(U1 U2I 
(COND!(NULL LI(RETURN NIL)) 

(( ATOM (CAR LWIGO A2I)) 

(SETQ Ul (MATCH1 U (CAR LI II ...... 

(CONDI (NULL Ul) (RETURN! MATCH1 U (CDR LWIW 
(SETQ U2 (MATCH 1 U (CDR L)W 
(COND ((NULL U2) I RETURN U1W) 

(RETURN (APPENO Ul U2W 
A2 (CONDI(ATOM U)(GO A5II 
I (FREEVBLEICAR UWIGO All) 

((EQUAL (CAR UIICAR LWIGO AS))) 

I RETURNIMATCHl U (CDR LWI 
Al (CONDKONICAR L) Z2I1G0 A5IW 
(RETURNIMATCHl U (CDR LW) 

AS (SETQ Ul (GMATCH U LW 

(CONOKNULL Ul I (RETURN I MATCH 1 U (CDR LWIW 
(SETQ U2 (NATCH1 U (CDR L)l> 

(RETURN (CONS Ul U2W IWW 
COMPILEKAODCONSQ APPENOM ADDANTECII 
COMPILE! (ANDARGS 0N2AVER MATCH1W 
DEFINE!((MASK!LAMBDA!ZIIPROGIU Ul U2I 


(SETQ U Ul 

A (CONOKNULL UK RETURN HI) 

((EQUAL l (CAOOOAAR UWIGO Bill 
(SETQ Ul (APPENO Ul (CONSICAR Ul NIDI) 

(SETQ U I CDR UW 
(GO A) 

6 *^?MEMBER(CAAAR S UI(QUOTEIREL REL11111SETQ U2(APPEND U2 (CONSICAR U) 

NIL)))) . 

(T (SETQ Ul (APPENO Ul (CONSICAR Ul NILIIIW 
(SETQ U (CDR U)I 
(GO B) 

0 (PRINT U2) 

(RETURN Ul) Will 

COMPILE!(MASK)I 

STOP) 


00010 

00020 

00030 

00040 

00050 

00060 

00070 

00080 

C0090 

00100 

00110 

00120 

00130 

00140 

00150 

00160 

00170 

00180 

00190 

00200 

00210 

00220 

00230 

00240 

OO2S0 

00260 

00270 

002B0 

00290 

00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 

00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 

00540 

00550 

00560 

00570 

00580 

00590 

00600 

00610 

00620 

00630 

00640 

00650 

00660 

00670 

00680 

00690 

00700 

00710 

00720 

00730 

00740 

00750 
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GHATCH LISP 

DEFINE!I<IHPMATCHILAMBDAIU HIIPROGIUI U2 U3 U4I QOCIO 

I CONDI(EQUAL(CAR U)(QUOTE EQUAL)I(GO All) 00020 

((EQUAL(CAR U)(QUOTE EQUAL2I)(GC A2I) 00030 

((EQUAL(CAR U)(QUOTE EXISTS))(GO A8)I 00040 

((EQUAL(CAR U)(QUOTE IMPLIES))(GO A6)) 00050 

((EQUALICAR U)(QUOTE AND))(GO A31)) 00060 

(RETURN NIL) 00070 

A1 (SETQ U2 (CONSICADR U) NIL)) 00080 

(GO A4I 00090 

A2 (SETQ U2 (COR U)l 00100 

A4 (CONDI(NULL U2)(RETURN Ul))) 00110 

(SETQ U3 (CAR U2)l (SETQ U2 (CDR U2)l 00120 

(SETQ U4 (GHATCH U3 M>) 00130 

(CONDI (NOT (NULL U4 >) I SETQ Ul (APPEND Ul (CONS U4 NILIID) 00140 

(CONDI (EQUALICAR H) ( QUOTE EXISTS)XGO A4)> 00150 

((HEHBERICAR H)(QUOTE(EQUAL EQUAL2)))(SETQ U4 (MATCH1 U3 (CONS 00160 

(CADR M) NILDIKT (SETQ U4 (MATCH1 U3 (COR H)) ) I) 00170 

(CONO KNOT (NULL U4) ) (SETQ Ul (APPEND Ul U4DI) 00180 

(GO A4) 0019C 

A3 (SETQ U2 (ANOARGS U)> 00200 

(GO A7I 00210 

A6 (SETQ U2 (CDDR U)) 00220 

(SETQ Ul (ALLMATCH1(CAR U2) M)) 00230 

A7 (COND((NULL U2)(RETURN Ul1)) 00240 

(SETQ U3 (CAR U2)l (SETQ U2 (CDR U2>) 00250 

(SETQ Ul (APPEND Ul (IHPHATCH U3 M)>> 00260 

(GO A7) 00270 

A8 (SETQ 23 (SUBSTICONSIQUOTE RES)(CAOR U)) 00280 

(CONS N (CAOR U>) 231) 00290 

(SETQ Ul (IHPHATCH(CAODR U) Ml) 00300 

(SETQ 23 (SUBSTICONS N (CADR U>) 00310 

(CONSIQUOTE RES)(CADR U)I 231) 00320 

(RETURN Ul) ))))) 00330 

DEFINE(((GMATCHK LAMBDA(U Ul U2 V2)(PROG(V3 V4I 00340 

(CONO((NULL U)(GO All) 00350 

((NULL U1KRETURN NIL)) 00360 

((ATOM U)(GO A51)) 00370 

((ATOM(CAR U))I GO A2 > I 00380 

I(ATOM(CAR Ul))(RETURN NIL))) 00390 

(SETQ V3 (GMATCH1(CAR U)(CAR Ul) U2 V2I) 00400 

(CONDI(NULL V3)(RETURN NIL))) 00410 

(SETQ 94 (GMATCHKCOR Ul (CDR Ul) U2 V2II 00420 

(CONDI(NULL V4)(RETURN NILII) 00430 

(RETURN(CONS I APPENDICAR V3)(CAR V4)1(APPEND(CDR V3I(COR V4)))l 00440 

A1 (CONDI(NULL Ul)(RETURNICONS U2 V2))>) 00450 

(RETURN NIL) 00460 

A2 (CONDI(FREE9BLEICAR U))(GO A3)) 00470 

((EQUALICAR U>(CAR Ul))(GO A4I) 00480 

((AND(MEMBER I CAR UI(QUOTE IEQUAL2 EQUAL))) 00490 

(HEHBERICAR Ul)(QUOTE(EQUAL2 EQUAL))11(GO A4I)) 00500 

(RETURN NIL) 00510 

A3 (SETQ V3 (GMATCH1 (CDR U)(CDR Ul) U2 V2I) 00520 

(CONDI(NULL V3)(RETURN NILI)) 00530 

I RETURN(CONS(APPENDICONSICAR UINIL)(CAR V3II(APPEND!CONS(CAR Ul) 00540 

NIL I (COR V3DII 00550 

AS (CONDI(ONICAR Ul) 23)(GO A5BII) 00560 

(RETURN NIL) 00570 

A5B (RETURN(CONS(CONS U U2I(CONSICAR UlI V2III 00580 

AS1 (CONDI (FREEVBLE UMGO A5>) 00590 

((EQUAL U (CAR Ul))(RETURN!CONS U2 V2I))I 00600 

(RETURN NIL) 00610 

A4 (RETURN! GMATCH1 (CDR Ul (CDR Ul) U2 V2> I Dili 00620 

DEFINE! KGMATCHILAMBDAIU U1KPR0GIV7 92 V3 V4 95 V6) 00630 

(SETQ V7 (GMATCH1 U Ul (CONS N NIL)(CONS N NIL))) 00640 

(CONDI(NULL V7)(RETURN NILI)) 00650 

(SETQ V2 (COR 97)1 (SETQ 97 ICAR 97)1 00660 

A1 (SETQ 93 (APPEND 93 (CONSICAR 97) NILII) 00670 

(SETQ 94 (APPENO 94 (CONSICAR 921 NILI)I 00680 

A1A (SETQ 92 (CDR 92)> 00690 

(SETQ 97 (CDR 97)) 00700 

(CONDI(NULL 97)(RETURN (CONS 93 94))) 0C710 

((HEHBERICAR 97) 931(60 A2))) 00720 

(GO All 00730 

A2 (SETQ 95 931 0074C 

(SETQ 96 941 00750 

A3 (CONO((EQUAL(CAR 971(CAR 95)1(60 A4))l 0C760 

(SETQ 95 (COR 95)1 (SETQ 96 (CDR 96)) 00770 

(GO A3) 00780 

A4 (COND((EQUAL(CAR 921(CAR 96)1(60 A1A))I 00790 

(RETURN NIL) !)>)) 00800 

COMPILE!IIHPHATCH GHATCH1 6HATCHI) STOP)11 00810 


163 




VBLES LISP 

DEFINE(MVBLES(LAMBDA(UI(PROG( I 
(CONDI(NULL U)(RETURN NIL)) 

((ATOM Ul(RETURN!VBLES(CONS U NIL)))) 

((ATOM (CAR U) > (GG AID) 

(RETURN!APPEND!VBLESICAR U)I(VBLES(CDR U)))> 

A1 (CONDI (ONtCAR Ul Z1UGO A2D 
((ON(CAR Ul ZN)(GO A2I ) 

((ONICAR U) Z2I(GO A2I) 

((ONICAR U> Z3I(GO A2)) I 
(RETURN (VBLESICOR U)l) 

A2 (RETURNICONSICAR U) (VBLESICOR U) I 11 Dili 
DEFINE!((ALLVBLES(LAMBDAIU) 

( COND ((NULL Ul U) (IMEMBERICAR UKCDR U) I (ALL VBLESICOR UD) 
(T (CONSICAR U) (ALLVBLESICDR UDD) ID) 
DEFINE(((RESRV(LAMBOA(U Z) 

(CONOMNULL Z) ZI (( MEMBER ICDAR Z) U) 

ICONS! CONS (QUOTE RESKCOAR ZD 
(RESRV U (COR Z1 I 11 

(T (CONSICAR ZI (RESRV U ICDR ZDDI ID) 

DEFINE!((ONILAMBDAIU Z) 

(COND ( (NULL Z) NIL I (( EQUAL U (CDAR ZD T> 

(T (ON U (CDR Z) DI Dll 
DEFINE!((CONNECT IVE(LAMBDA(U) 

(CONDI(MEMBER U (QUOTE!IMPLIES IMPLIES2 OR DEFER 
EQUAL FEQUAL EQUAL2 EXISTS AND NOT))) T) 

(T FI) ID) 

DEFINE!((TERMS!LAMBDAIU L)(PROGII 
(CONDI (NULL U) (RETURN NIDI 
(( ATOM (CAR UD (GO All) I 

(RETURN ( APPEND! TERMS (CAR U) L) (TERMSICDR Ul LID 
AL (CONDI (CONNECTIVEICAR UIKGO A2D 

( ( EQUAL (CAR U) (QUOTE ASSOCIKGO A2D 
((NUMBERPICAR UIKGO A211 
(IMEMBERICAR U) LI (GO A2D) 

(RETURNICONS U I TERMSICDR Ul LID 
A2 (RETURN (TERMS (CDR U) LI) ID)) 

DEFINE! ((GENSUBSTILAMBDAIL M UKPROGI) 

(CONDI (NULL L I (RETURN UD 
((ATOMICAR LI I (GO AD 
((ONICAAR L) Z21 (GO BID 

C (RETURNISUBSTICAR LI (CAR MI (GENSUBST (CDR LI (COR Ml UD) 

A (CONDI(EQUAL(CAR LI(CAR Ml I(RETURNIGENSUBSTICDR L) 

(COR Ml UlI 11 
(GO C) 

B (COND ((ATOM (CAR Ml) (GO CD 

((ONICAAR Ml ZZI(RETURN(GENSUBSTICAR LI 
(CAR Ml (GENSUBST! CDR LIICDR HI UDD) 

(GO C) DID 

COMPILE((VBLES ALLVBLES RESRV ONI) 

COMPILE!(CONNECTIVE TERMS GENSUBST)I 
DEFINE! ((SUPXECILANBDAIU6 UKPROGISUP RET Ul) 

A (CONDI (NULL U6I (RETURN RETD) 

(SETQ SUP NIL) 

(SETQ RET (CONS! SUP SUB U6 U) RETD 
B (CONOMNULL U611 GO Bill 

((NOT!MEMBERICOAR U6) SUP))(SETQ Ul (CONSICAR U6) Ullll) 
(SETQ U6 (CDR U6D 
(GO B) 

B1 (SETQ U6 Ul) 

(SETQ Ul NIL) 

(GO A) DID 

DEFINE!((SUPSUB(LAMBDA(U6 U)(PR0GIU3) 

(SETQ U3 U6) 

A1 (CONOMNULL U3) (GO Bill 

((EQUAL(CDAR U3) UKGO 621 I 
(T (SETQ U3 ICDR U3DD 
(GO All 

81 (CONOMATOM Ul (RETURN UD) 

(RETURNICONS! SUPSUB U6 (CAR UIKSUPSUB U6 (COR UDD 
B2 (SETQ SUP (CONSICDAR U3) SUPD 
(RETURN (CAAR U311 DID 
STOP) ID 


OOOIO 
00020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
001 AO 
00150 
00160 
00170 
00180 
0019C 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
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ROFV 


LISP 


OEFINE(((NOLOOK(LAMBDA(MI 00010 

(CONDII MEMBER(CAAR(GFIND M)■(QUOTE<VER IRR VERA2 NILL )) I 00020 

mi fii mi 00030 

DEFINE t((SPREAD(LAMBDA(Alt UNPACK(CAR(GET A (OUOTE PNAME)>))>> I > 00040 

DEFINE!((ASTERISKcOILAMBDA(Al(CONDIIEQUAL STAR 00050 

(CAR!SPREAD A))) T)(T F)) )))) 00060 

OEFINE!((FIFTHILAMBDAIU)(CAR(CDDDDR Ul)))l) 00070 

DEFINE!((SIXTHtLAMBDA(U)(CONDI(NULL(CDR<CDOODR U))1 NIL) 00080 

(T (CADR(CDDDDR U)>)> )>)) 00090 

DEFINE(UALLSUBSTS(LAMBDA(L M U LNKPROGIUI U2 S) 00100 

(SETS U1 (GMATCh M U)) 00110 

(CONDI (NOTINULL UlIXSETC U1 (CONS U1 NIL)))) 00120 

A1 (CONDUNULL U1KG0 A2>)> 00130 

(SETS U2 (APPEND U2 (LI ST(CONS 1GENSUBST(CDAR Ul) 00140 

(CAAR Ul) L ) ( GENSUBST (CDAR U1MCAAR Ul) M))))l 00150 

(SETQ Ul (COR Ul)) 00160 

(GO Al) 00170 

A2 I CONDI(NOTINULL S >)I GO A3 >)) 00160 

(SETQ S N) 00190 

(CONDI(MEMBERICAR U)(QUOTE(EQUAL EQUAL2I)I(SETQ U (CONSICAOR U) NIL))) 00200 
(T (SETQ U (CDR U)))) 00210 

(SETQ Ul (MATCHI M U)) 00220 

(GO Al) 00230 

A3 (CONDI(NULL U2)(RETURN NIL))) 00240 

(RETURNICONS LN U2)> ))))) 00250 

DEFINE! ( ( ASSOCM (LAMBDA (M U LNKPROGIUI) 00260 

(CONDI(MEMBERICAR U>(QUOTE(EQUAL EQUAL2))I ISETQ U (CAOR U)))l 00270 

(SETQ Ul (PMATCM M U)) 00280 

(CONDUNULL Ul) ( RETURN NIL))) 00290 

(RETURNICONS LN Ul)) ))))) 00300 

DEFINE!((PMATCHILAMBDAIM U)(PR0G(U1 U2 U3 S) 00310 

(SETQ Ul (CONS(QUOTE(*PROD Al (»PROD A2 A3 A) A)l 00320 

IQUGTE(»PROD(»PROD Al A2 A) A3 A)))) 00330 

(SETC Ul (SUBST M (QUOTE A) Ull) 00340 

(SETQ U2 (RPLCE(QUOTE(Al A2 A31) NIL)) 00350 

(CONOI (NOTINULL U2I ) (SETQ Ul (GENSUBST (CAR U2MCDR U2 ) Ul)))) 00360 

C (SETQ U2 (MATCH1(CDR Ul) U>> 00370 

A (CONDUNULL U2) (GO Bill 00380 

(SETQ U3 (APPEND U3 ( LI ST ( GENSUBST (CDAR U2MCAAR U2 I Ull))) 00390 

(SETQ U2 (CDR U2)) 00400 

(GO A) 00410 

B (CONOI(NOTINULL S))(RETURN U3))) 00420 

(SETQ S N) 00430 

(SETQ Ul (CONS ( CDR U1MCAR Ul))) 00440 

(GO C) ))))) 00450 

DEFINEIUROFV (LAMBDA ( 2 FLG ) I PROG (U Ul) 00460 

(CONDI(EQUAL Z N)(RETURN VV2 ) )) 00470 

(SETQ U VV21 00480 

A (CONDUNULL UMRETURN Ul)) 00490 

( ( MEMBER (C AAAR U) FLG) ( SETQ UKAPPENO Ul (CDNSICAR U) NIL)))) 00500 

ULESSPICAAAR Ul ZXGO BX 00510 

(T (RETURN(APPEND Ul Ul))) 00520 

B (SETQ U (COR U)) 00530 

(GO AI ))))) 00540 

DEFINE(((CHNGWILAMBDA lull PROG(Ul U2 U3 U4> 00550 

(CONDI ( EQUAL IFIFTHtCAR UX Z4A) (RETURN NIL))) 00560 

(SETQ Ul W) 00570 

Al (CONDUNULL Ul) (RETURN NIL)) 00580 

( ( EQUAL (CDAR U1XCDR U1XG0 A2))l 00590 

(SETQ U2 (APPEND U2 (CONSICAR Ul) NIL))) 00600 

(SETQ Ul (COR Ull) 00610 

(GO All 00620 

A2 (SETQ 03 (CAAR Ul)) 00630 

(SETQ U4 (SIXTH U3>) 00640 

(SETQ U3 (LISTICAR U3XCADR U3XCADDR U3XCA0CDR U3) Z4AII 00650 

(CONOUNOTINULL U4IXSETQ U3 (APPEND U3 (CONS U4 NILI1III 00660 

(SETQ W (APPEND U2 (CONSICONS U3 (COR UXICDR Ul) )) ) 00670 

(RETURN NIL) 11) I ) 00680 

STOP))))) 00690 
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NEXT LISP 

DEFINE!I(NEXT(LAMBDA!L)(PROG!I OOOIQ 

I CONDI! NOT t EQUAL ICA AAR Ml IQUOTE PNT Ml (GO BUI) 00020 

I SETQ Ul (APPEND W1 (CONSISUBSTIGUOTE RED 00030 

(QUOTE PNT)(CAR HI) NIL))) OOOAO 

8 (SETQ W (CDR HI) 00050 

(CONOKNULL HI (RETURN NIL)) 00060 

( (EQUAL ICA AAR W) (QUOTE RED I (GO CM) 00070 

81 (SETQ HI (APPENO HI (CONSICAR HI NIL))) 00080 

(GO B) 00090 

C (CONDI(EQUALICADAR HI(QUOTE DEFERI)(GO Dll) 00100 

Cl (SETQ H (CONS! SUB ST (QUOTE PNT) (QUOTE REL) (CAR HIXCCR HID 00110 

(RETURN N) 00120 

D (SETQ L (COAAR HI) 00130 

(CONDI (HEMBERICADOR L) (CADDAR (GF1 NO (C AAR LIDKGO C1I) 00140 

((NULL (CDR HIMRETURN NIL))) 00150 

(SETQ HI (SUBST ZA (CAODR L) HIM 00160 

(SETQ H (APPEND H (CONSISUBST Z4 (CAODR L)(CAR HI) NIL))) 00170 

(SETQ Z4 (ADD1 Z4) ) 00180 

(GO Bl >>)>) 00190 

DEFINE ( (( C AOOOARI LAMBDA (U KCAR (CDDDAR Ullllll 00200 

DEFINE(((CAODOAARILAMBDA!UIICADRICDDAAR U))>))> 00210 

DEFINE(((CADDAARILAMBDAIU)ICARICDDAAR Ul)))l) 00220 

DEFINE!I(RPLCE(LAMBOA(U Ul)I PROG(U2 U3 U4 U5 U6) 00230 

(SETQ U2 U) 00240 

A1 (CONOKNULL U21 (GO A6)) 00250 

((FREEVBLE(CAR U2))(G0 A3)11 00260 

A2 (CONDI (ONICAR U2> Z1KSETQ U5 Zlll 00270 

(IONICAR U2) ZNKSETQ U5 ZN) I 00280 

((ONICAR U2I Z2I(SETQ U5 Z2)) 00290 

(T (SETQ U5 Z3MI 00300 

(SETQ U6 (CAR U5M 00310 

A2C (CONOKNULL U5) (GO A5I) 00320 

((EQUAL N (CAAR U5MIG0 A4M) 00330 

A20 (SETQ U5 (CDR U5)l 00340 

(60 A2C) 00350 

A3 (CONDI (MEHBEKICAR U2> UUIGO A2) I) 00360 

A3A (SETQ U2 (COR U2II 00370 

(GO All 00380 

A4 (CONDI 1 MEMBER(COAR U5> U1KG0 A20II 00390 

((MEMBERICDAR U5) UIIGO A20II 00400 

KMENBERICOAR U5) U3I (GO A20M) 00410 

(SETQ U3 (CONS!COAR US) U3)I 00420 

(SETQ U4 (CONSICAR U2) U4I) 00430 

(GO A3A) 00440 

A5 (PR INTIQUOTE I NOT ENOUGH VARIABLES)11 00450 

(PRINT U6) 00460 

(SETQ U IROFLXI))I 00470 

(SETQ U5 (CONS!CONS N U) NILII 00480 

(CONOI (EQUAL U6 (CAR ZUIISETQ Zl (APPENO Z1 U5III 00490 

((EQUAL U6 (CAR ZN)) (SETQ ZN (APPEND ZN U5MI 00500 

((EQUAL U6 (CAR Z2) I (SETQ Z2 (APPEND Z2 U5IM 00510 

(T (SETQ Z3 (APPEND Z3 U5III) 00520 

(GO A4I 00530 

A6 (CONOKNULL U3) (RETURN NIL))) 00540 

(RETURN!CONS U3 U4I) 1*111 00550 

OEFINE(( ( ARGOF1 (LAMBDA!U LKPROGIUU 00560 

(CONOKNULL L) (RETURN NIL)) 00570 

((CONNECTIVEICAOAR L))(RETURN!ARG0F1 U (COR Llll) 0O5B0 

((ASTERISKEOICAOAR L))(RETURN!ARG0F1 U (COR Llll) 00590 

(ION U Z2MG0 AM 00600 

((EQUAL U (CADDAR LI)(RETURNICONSICOAR L) 00610 

(ARSOFl U (COR L))))) I 00620 

(RETURN!ARGUF1 U (CDR L))) 00630 

A (CONOI (ATOM (CADDAR L) I (RETURN! ARG0F1 U (CDR Dili 00640 

((EQUAL U (CARICADOAR LID (RETURN(CGMS(CDAR LI 00650 

(AR60F1 U (CDR DMII) 00660 

(RETURN!ARGUF1 U (CDR Llll 11)1) 00670 

DEFINE(K ROFH(L AHBDA(N >(PROG(UI 00680 

(SETQ U H) 00690 

A (CONOI(NULL U)(RETURN NIL)) 00700 

((6REATERP M (CADDDAAR U)>(SETQ U (COR Ul11 00710 

(T (RETURN Ul)I 00720 

(GO A) Ml) I 00730 

COMPILE!(NEXT CADDOAR CADDDAAR CAOOAAR RPLCE ARG0F1 ROFH)) 00740 

STOP) 00750 
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ATMS 

DEFINEt((GENVBLEILAMBDA(U>(PR0GIU2 U3I 
(SETQ U2 Z3) 

A (CONDI (NULL U2HGO Bll 

( ( EQUAL (CAAR U2> (QUOTE SENIXSETQ 
(SETQ UZ (COR U2>) 


LISP 


U3 (CONStCOAR U2) U3III) 


(GO At 

B (SETQ U2 (ATMS Ull 
C (CONOUNULL U2) (RETURN NIL)) 

l(MEMBER(CAR U2> U3I(RETURNICAR U2)l)l 


(SETQ U2 (COR U2)) 

(GO C) )))I) 

DEFINE! ( ( ATMS 1 LAMBDA ( U) (COND( (NULL U) NIDI (ATOM U) 
(CONS U NIL))(T (APPEND(ATMS(CAR U))(ATMS(COR Ul))))>) 
DEFINE(((RPLCEF(LAMBDA(U Ul)(PROG(U2 U3I 


II 


(SETQ U2 Z3) 

A (COND((EQUALtCDAR Z31(QUOTE A1)I(GO Bill 
(SETQ Z3 (COR Z3I) 

(GO A) 

B (SETQ U3 (RPLCE U Ull) 

(SETQ Z3 U2I 
(RETURN U3) 11)I I 

DEFINE(((FREEVBLEILAMBDAIU)(PROG(UlI 

(SETQ U1 (APPENO Z1 (APPEND 12 (APPEND Z3 ZNIII) 

AI (CONOUNULL U11 ( RETURN NIDI 
((EQUAL U (CDAR U1IMGO A2III 
(SETQ UI (CDR Ull) 

(GO All 

A2 (CONO((EQUAL(CAAR Ull NI(RETURN Til) 

(RETURN NIL) ))))) 

DEFINE!((TACKILAMBDAtL Ml(PROG(Ul) 

(SETQ Ul (CONS(CONS(CAR L) MINILII 
A1 (SETQ L (CDR LI) 

(CONOUNULL L I (RETURN Ul))) 

(SETQ Ul (APPEND Ul (CONS(CONS(CAR L) M) NIL))) 

(GO All )))>) 

DEFINE! ((M IRGEA(LAMBDA(L MXPROGI ) 

A1 (CONOUNULL L) (RETURN Ml) 

((EQUAL(CAAR L)(QUOTE HEAD))(GO A211 
(( EQUAL (CAAR L) ( QUOTE NONEIXGO A2I) 

(( ATOM(CAAR LIXGO A3))) 

(SETQ L (CONS(CONS(CAAAR L)(CDAR L))(CONSICONSICOAAR L) 
(CDAR L))(CDR LI))) 

(GO All 

A3 (SETQ M (APPEND M (CONS ICAR LI NIL))) 

A2 (SETQ L (CDR L>> 

(GO All ))))) 

DEFINE! (( DELPRILAMBDA(M LXPROG(Ul) 

A1 (CONOUNULL LX RETURN Ul)) 

( (ATOM! CAR LIXGO A2I) 

((EQUAL M (CAAR LIXGO A4I) 

((EQUAL M (CDAR LIXGO A3 11) 

AZ (SETQ Ul (APPENO Ul (CONSICAR L) NIL))) 

(SETQ L (CDR L)) 

(GO Al) 

A3 (SETQ L (CONSICAAR LI(CDR L))I 
(RETURN (APPEND Ul D) 

A4 (SETQ L (CONS(CDAR LXCOR LI ) I 
(RETURN (APPEND Ul LI) ))))) 

DEFINE!((ONLYMEMB(LAMBDA(M L) 


(CONDI (NULL (CDR L)) (CONO( (EQUAL M (CAR LI) TXT Fill 

( ( EQUAL (CAOR LX QUOTE HEAD) I (CONOI (EQUAL M (CAR LI) TXT 
( ( EQUAL (CAR L) (QUOTE HEAD) ) (CONDI (EQUAL M (CADR LI) TXT 
IT FI) 11)1 

DEFINE( (( DELTF(LAMBDA(M LKPROG(Ul) 

Al (CONDI(EQUALICAR L) Ml I RETURN (APPENO Ul (COR L)I))I 
(SETQ Ul (APPEND Ul (CONS ICAR L) NIL)I) 

(SETQ L (CDR L>> 

(GO Al) >)))) 

COMPILE!(FREEVBLE TACK MIRGEA DELPR ONLYMEMB DELTF)) 

STOP) 


F) 1) 
Fill 


OOOIO 

0002C 

00030 

00040 

00050 

00060 

00070 

00080 

00090 

00100 

00110 

00120 

00130 

00140 

00150 

00160 

00170 

00180 

00190 

00200 

00210 

00220 

00230 

00240 

00250 

00?60 

00270 

00280 

00290 

00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 

00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 

00540 

00550 

00560 

00570 

00580 

00590 

00600 

00610 

00620 

00630 

00640 

00650 

00660 

00670 

00680 

00690 

00700 


168 




GFINO LISP 

DEFINE (( ( ANDEND(LAMBDA!M UHPROGIUll OOOIO 

A1 (CONDI(NULL U»(RETURN Nil 00020 

((ATOHICAR UIH60 A2) I) 00030 

A1A (SETQ U (COR U>) OOOAQ 

(GO All 00050 

A2 (CONDI(EQUALICAR U)(QUOTE NONE)I(GO A1A)I) 00060 

(SETQ U1 (GFINDICAR U))) 00070 

(CONDI (EQUAL (CADR U1HQU0TE AND)) (GO A3))l 00080 

(GO A1A) 00090 

A3 (CONOI(MEMBER M (ANDTERMSICADDAR Ul)I)(RETURN NIL))) 00100 

(GO A1A) )))) ) 00110 

DEFINE(((ANDTERMSILAMBDA(U)(PR0GIU1 U2I 00120 

(CONOI (ATOHICAR UIHGO Bill 00130 

(SETO Ul (GFINDICAAR U))l OOIAO 

(CONDI(EQUALICADR Ul)(QUOTE AND))(SETQ U2 (ANDTERMSICAOOAR Ul)))) 00150 

IT (SETQ U2 (CONSICAAR Ul NIL)))) 00160 

A2 (SETQ Ul (GF1NDICDAR Util 00170 

(CONDI (EQUALICADR U1KQU0TE AND) ) (GO A3)l) 00180 

(RETURN! CONS ICDAR U) U2 ) )- 00190 

A3 (RETURNIAPPENDIANDTERMSICADOAR Ul)) U2I) 00200 

8 (SETQ Ul (GFINDICAR U>)> 00210 

(CONDI (EQUALICADR U1XQU0TE AND) I (RETURN (ANDTERMS (CADDAR Ull>))> 00220 

(RETURNICONSICAR U> NIL)) ))))> 00230 

DEFINE(((GFIND(LAMBDA(M)(PROGIU) 00240 

(SETQ U (APPEND W1 Ml) 00250 

A1 (CONDI(NULL U)(RETURN NIL)) 00260 

( (ATOM HUGO 81) 00270 

((EQUAL M (CDAR U))IRETURNICAR U)))) 00280 

A2 (SETQ U (COR Ul) 00290 

(GO All 00300 

8 ICONDI(EQUAL M (CAODDAAR U)IIRETURNICAR U>)>) 00310 

(GO A2) ))))) 00320 

COMPILE!(ANDEND ANDTERMS GFINDI) 00330 

DEF INE ( ((ALLMATCH1 ( LAMBDA (U MKPROGIUl U3> 00340 

(CONDI(EQUAL(CAR U)(QUOTE AND))(SETQ U (CONS U (ANOARGS Ul))) 00350 

(T (SETQ U (CONS U NIL)))) 00360 

6 (CONOI(NULL U)(RETURN Ul))) 00370 

(SETQ U3 (GMATCHICAR U) Ml) 00380 

(CONDI (NOT (NULL U3IKSETQ Ul (APPEND Ul (CONS U3 NILIIII) 00390 

(SETQ U (CDR U>> 00400 

(GO B) ))))) 00410 

DEFINE!((GMEMBILAMBDA(M U) 00420 

(CONDI(NULL U) F) 00430 

((ATOHICAR Ul)ICOND((EQUAL M (CAR UlI T) 00440 

(T (GMEMB M (CDR Ul)I>I 00450 

(T (CONOI(EQUAL M (CAAR Ul) T) 00460 

((EQUAL M (CDAR Ul) T) 00470 

(T (GMEMB M (CDR U)))))) I))) 00480 

DEFINE(((RPLC11 LAMBDA(UI(PROGIUl U2 U3) 00490 

AO (CONOI(NULL U)(GO Bill 00500 

(SETQ U3 (APPEND Z1 (APPEND 12 (APPEND Z3 ZNID) 00510 

Al (CONDI (EQUAL!CAR U)(CDAR U3))(GO A3))) 00520 

(SETQ U3 (CDR U3)> 00530 

(GO Al) 00540 

A3 (CONOI(EQUALICAAR U3)(QUOTE RES))(GO A4)>) 00550 

(SETQ U3 (GENSYMI) 00560 

(SETQ Ul (CONS U3 Ul)) 00570 

(SETQ U2 (CONSICAR U) U2>) 00580 

(CONDdONICAR U) Z1) (SETQ Z1 (CONSICONSIQUOTE RESI U3) Zlll) 00590 

((ONICAR U)ZN)(SETQ ZN (CONSICONSIQUOTE RES) U3) ZN ) 1) 00600 

(I ONI CAR U) Z2)(SETQ Z2 (CONSICONSIQUOTE RES) U3) Z2I)) 00610 

(T (SETQ Z3 (CONSICONSIQUOTE RES) U3I Z3 )))) 00620 

A4 (SETQ U (CDR U)1 00630 

(GO AO) 00640 

B (CONOI(NULL Ul)(RETURN NIL))) 00650 

(RETURN!CONS Ul U2)l ))))) 00660 

COMPILE!(ALLMATCH1 GMEMB RPLCll) 00670 

STOP) 00680 
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DEFNS DATA 

( 

(((SUBGROUP A 8)11({NORMAL ASCII 

I (MEMBER A1 A)) ( (NORMAL A B CHI (SEMIGROUP A)) ((ASSOC A) I ( (ABELIAN A Bit 
((SUBSET A fill 

I(SUBGROUP A BI IMPLIES(AND(MEMBER Ai A!(MEMBER A2 A)I 
I AND (MEMBER (*PROD Al A2 B) AH MEMBER (•INVERSE Al Bi All! 

((SUBMONO ID A B) IHPLIES (AND (MEMBER Al AHMEM6ER A2 AH 
(MEMBER!‘PROD Al A2 BI Al) 

((HOMOMORPHISM!FI A BI) IMPLIES!ANOIMEMBER Al Al 

(MEMBER A2 Al) (AND(MEMBER(F1 A B All BUEOUAL2 

(FI A B (•PROD Al A2 AH(*PROO(F1 A B All (FI A B A2I Bill) 

((HOMOMF(FI A Bll IMPLIESIAMO!MEMBER Al Al(MEMBER A2 All 
(FEOUALIFI A B (*PROO Al A2 AII(*PROOIFl A B All 
(FI A B A2I Bill 

((ONTO! FI A Bll IMPLIES (MEMBER Al BKEXISTS A2 
(AND(MEMBER A2 Al(EQUAL(FI A B A2I Alllll 
((INVERSE Al A2 Al EQUAL(*PROO Al A2 AI(*IDENTITV All 
((BHAS»CONP‘SERIES Al EXISTS N1 (EXISTSIB N2I 
(COMPOSER IES((B N2I Nil A111 

((ONETCONE(FI A Bll IMPLIESIANOIAND(MEMBER Al Al 
(MEMBER A2 Al11 EQUAL(*PROO(•!NVERSE(FI A B All BI 
(FI A B A2I BI(*1OENTITV BI11(EQUAL!»PROO 
(•INVERSE Al A) A2 Al(•IDENTITY All I 
(IRCOSET A Al B CIIULCOSET A Al B Cll 
l( 

(( S5U6GR0UP A B11 ((SNORMAL A B CM ((NULL) I 

((•FININT A N9I AND( EQUAL (»F ININT A IMA 111 

(EQUAL (*FININT A (‘SUCCESSOR N3D (»INT(»FININT A N3I 

(A (‘SUCCESSOR N3IIIII 

((•SECIAl NI AIK (*EXP Al N All 

((•SUCCESSOR Nil 

((MEMBER Al AII((*PROD Al A2 AIM (ASSOC All 
((IMAGE A I FI B Cll IMPLIES2IMEMBER Al AKEXISTS A2 
(ANO(MEMBER A2 BI(SEQUALIF1 B C A2I Alllll 
((HOMOMORPHISM!FI A ST I IMPLIES(MEMBER Al Al 
(MEMBER(FI A B Al) Bll 
((•INVERSE Al All ((•IOENTITY A)) 

((GROUP A) ANOI IMPLIES(AND!MEMBER Al A) 

(MEMBER A2 A11(MEMBER(»PROO Al A2 A) AlI(AMO 
(ASSOC AI(ANO(M€NBER(*IOENTITY A) A) 

(IMPLIES(MEMBER Al A)(MEMBER!•INVERSE Al A) Alllll 
((CONJUGATE A Al B Cl ANO(MEMBER Al Cl 
(IMPLIES2IMEMBER A2 AKEXISTS A3 (AND (MEMBER A3 B) 

(EQUAL A2 («PROO(*PAOO Al A3 CI(*INVERSE Al Cl Cl 11111 
((SUBGROUP A BI ANO(INPLIESINEMBER Al A) 

(MEMBER Al BII!AND(IMPLIES!ANO!MEMBER Al A) 

(MEMBER A2 A)I(MEMBER (>PROO Al A2 BI All 
(ANO(MEMBER(•IOENTITY B) AlIINPLIESINEMBER Al A) 

(MEMBER(•INVERSE Al B) All))) 

((KERNEL A (FI B Cll 

IHPL I ES2( MEMBER Al Al (EQUALIFl 8 C All (•IOENTITY CD) 

((ABELIAN A BI IMPLIES!ANDlMEMBER Al AKHEMBER A2 All 
(EQUAL(*PROO Al A2 BIOPROD A2 Al BID 
((SEMIGROUP A) AND!IMPLIES!ANDlMEMBER Al A) 

(MEMBER A2 AlI(MEMBER(•PROD Al A2 Al All(ASSOC Al) 

((CENTER A B) ANO(INPLIESINEMBER Al Al(MEMBER Al Bll 
(IMPLIES2IMEMBER Al A)IINPLIESINEMBER A2 BI 
(EQUAL(«PROO Al A2 B)l*PROO A2 Al Bill)) 

((INTERSECTION A B Cl IMPLIES2IMEMBER Al A)(ANO 
(MEMBER Al B)(MEMBER Al Cll) 

((NORMAL ABC) IMPLIESIANOIMEMBER Al B)(MEMBER A2 All 
(MEMBER(•PROO(»PROD Al A2 Cl I‘INVERSE Al Cl C) All 
((COMMUTATOR Al A2 A3 Al EQUAL2 Al (•PROO(‘PROO(‘PROO 
(•INVERSE A2 Al(‘INVERSE A3 A I A) A2 A) A3 All 
((NORMALIZER ABC) IMPLIES2IMEMBER Ai A)(IMPLIES 
(MEMBER A3 BI(MEMBER!‘PROO(‘PROD Al A3 C) 

(•INVERSE Al Cl C) BID 

((RIHA6E A B (FI C 01) IMPLIES2IMEMBER Al AKEXISTS A2 
(ANDlMEMBER A2 B) (SEQUALIFl C D A2) All))) 

((EPIM0RPHISMIF1 A Bll ANO! INPLIESINEMBER Al BKEXISTS A2 (ANO 
(MEMBER A2 A)IEQUAL2IFI A B A2) All 1111INPLIESINEMBER A3 A) 

(MEMBER (FI A B A3I BID 

((HOMOMORPHISM!FI A BI) AMOIONEONEIFl A B)I 

(INPLIESINEMBER Al A)(MEMBER!FI A B All Bill 

(IRCOSET A Al 8 Cl ANOIMEMBER Al CllIMPLIES2IMEMBER A2 A) 

(EXISTS A3 (ANDIHEMBER A3 BI(SEQUALI‘PROO A3 Al Cl A211111 
((LCOSET A Al B Cl ANOIMEMBER Al C)IINPLIES2IMENBER A2 A) 

(EXISTS A3 (ANDIHEMBER A3 BI (SEQUALI »PROO Al A3 Cl A2IDD 
((SET INV ABC) IMPLIES2(MEMBER Al Al 

(EXISTS A2 J AND I MEMBER A2 BIT SEQUALI‘INVERSE A2 C) AUDI 


00010 

00020 

00030 

00040 

00050 

00060 

00070 

00080 

00090 

00100 

00110 

00120 

00130 

00140 

00150 

00160 

00170 

00180 

00190 

00200 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 

00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

003B0 

00390 

00400 

00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 

00540 

00550 

00560 

00570 

00580 

00590 

00600 

00610 

00620 

00630 

00640 

00650 

00660 

00670 

006B0 

00690 

00700 

00710 

00720 

00730 

00740 

00750 

00760 

00770 

00780 

00790 

00800 


170 




((FACTORGROUP A B D) ANO(AND 00810 
(1MPLIE$2(MEM6ER(*LC0SET Ai B 01 Al(MEMBER A1 01) 00820 
(IMPLIES I MEMBER AI B)(EQUAL!»LCOSET AI B 01 00830 
(•IDENTITY A)))I(IMPLIES!MEMBER AI A) 00840 
(EXISTS A2 (AND(MEMBER A2 0)(EQUAL AI OOBSO 
(•LCOSET A2 B 0)))))) 00840 
((UNITSET A AI) IMPLIES2!MEMBER A2 AMSEQUAL A2 AD) 008T0 
((INVIHAGE A B (FI C 0)) IMPLIES2(MEMBER AI A)(MEMBER(FI C 0 AI) B)) 00880 
((SUBSET A B) IMPLIES(MEMBER AI A)(MEMBER AI Bll 00890 
((ISOMORPHISM!FI A Bll AND IANO(ONEONE(FI A Bl) 00900 
(IMPLIESIMEMBER AI B)(EXISTS A2 (ANO 00910 
(MEMBER A2 A)(EQUAL2IFI A B A2) AI11)11(IMPLIES(MEMBER A3 A) 00920 
(MEMBER!FI A B A3) BID 00930 
((SUBF6RP A B C 01 AND 00940 
(IMPLIES2(MEMBER(*LCOSET AI B 0) A)(MEMBER AI C>I 00990 
(IMPLIESIMEMBER AI AI 00960 
(EXISTS A2 (ANO(MEMBER A2 CI(EQUAL AI 00970 
(•LCOSET A2 B 0)11))) 00980 
((COMP*SERI ESI(A Nil M2) B) AND!IMPLIESIEQUAL B (•UNITSET 00990 
(•IDENTITY BID (COMP*SERIES( IB Nil 1) 61)1 IMPLIES! ANO( 01000 
SHAS*MAX*N0RH*SU8 Bl(DEFER(EXISTS N4 (EXISTSIC N5I (CONP*SERIES 01010 
((C NS) N4I(•HAX*N0RM«SU8 Bill))) 01020 
(AND!COMP*SERIES(10 N3I N6) BlIANOI AND(EACH(EQUAL10 N3IIC N5)l 01030 
(•PREDECESSOR N6)I(EQUAL(0 N6> Bl)I EQUAL(•PREDECESSOR M6> N4III)) 01040 
I(ONETOONEIFl A Bll IMPLIESIFEQUALIFI A B All 01090 
(FI A B A2I)(EQUAL AI A2)l 01040 
((INVPNT A AI (FI BCD ANO I IMPLIESIMEMBER A2 A) 01070 
(EQUAL(FI 6 C A2I A1II(IMPLIESI EQUAL IFI B C A2) 01080 
ADIMEMBER A2 All) 01090 
((CENTRAL ABC) ANOIIMPLIESIMEMBER AI All MEMBER AI C) 01100 
I (IMPLIES2IMEMBER AI AI(IMPL)ESIMEMBER A2 Bl OHIO 
(EQUAL I *PROO AI A2 C)(*PR00 A2 AI 01)1) 01120 
)( 01130 
KHMPRPIF1 A Bll IF1 A B (•IDENTITY AI)(•IDENTITY B) 01140 
(FI A 8 (•INVERSE AI AII(•INVERSE!FI A B Al> B) 01190 
(FI A B (*PROD AI A2 A))(«PR00IF1 A B A1I 01140 
(FI A 1 A2) Bl) 01170 
((FGPRP A B 0)('LCOSET(•INVERSE AI 0) B D) 01180 
I*INVERSE(*LCOSET AI B 01 AI(•LC0SET(*PROP 01190 
AI A2 0) B 0)(•PRODI*LCOSET AI B 01(•LCOSET A2 B 01 All 01200 
H 01210 
((SUBSET A B) I (A BIHA Bl) 01220 
((FACT0R6R0UP A B OKIAKB 0) I(B 0)1 01230 
( (HOMOMORPHISM! FI A BIKIAIIBIII 01240 
((EPIM0RPM1SMIFI A BIKIAIIBIII 01290 
(IMONOMORPHISMIF1 A BIKIAIIBIII 01260 
(IISOMORPHISNIFI A BIKIAIIBIII 01270 
( ( SUBGROUP A BIIIA 81 HA Bl) 01280 
((IMAGE A (FI B CIKIA Cl HA Cl.) 01290 
((KERNEL A IF1 B CIKIA BIIIA Bl) 01300 
(IRIMAGE A B IF1 C DIKIB CHA OIKB Cl (A 0)1 01310 
((INVIMAGE A B (FI C OIKIA CUB DIHA CHS Dll 01320 
((SUBFGRP ABC OKIAKB C OIKB CIIB OI(C 0)1 01330 
((ABELIAN A BIIIA BIIIA Bll 01340 
((CENTER A BIIIA BIIIA Bll 01390 
((INTERSECTION A B CKIA B CIKA BI (A Cl) 01360 
((NORMAL A B CKIA B CIKA 6IIA CIIB CD 01370 
((NORMALIZER A B CKIA B CIKA CIIB Cl) 01380 
((CONJUGATE A AI 8 CKIA B CIKA CIIB Cl) 01390 
((RCOSET A AI 6 CKIA B CIKA CIIB C11 01400 
((LCOSET A AI B CKIA B CIKA Cl (B Cl) 01410 
(ISETINV A B CKIA B CIKA CIIB Cl) 01420 
((INVPNT A AI (FI B CIKIA BIIIA Bll 01430 
(ICENTRAL A B CKIA B CIKA CIIB Cl) 01440 
) 01490 
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CQMPIL LISP 

COMMON!(W1 H Z4 N QF1 VV1 VV2 QMS CXI) 

LOAOI(PUT2)I 

COMMON!1QM1 QM2 QM3 QM4 QM6 ZN)1 

COMMON!(Z1 Z2 Z3 Q OF2 XX OLl QL211 

COMMON!(X V Z6 FQM2 F0M3 FQM4 CL Z4A Z4B CXI LONII 

LOAD!ISOLVEX)) 

LOAO!(VERIFY)) 

LOAD!(PUTON1)) 

COMPILE!IPUTONl)) 

LOAD((GTFRM1) 

COMPILE!(GTFRM)I 
LOAD!iHFM)) 

COMPILE!IHFM)) 

LOAO!IGMATCH)) 

LOAO!INEXTI) 

LOAD!IROFV)I 

COMPILE IINOLOOK SPREAD ASTERISKED FIFTH SIXTH)) 
COMPILE!(ALLSUBSTS ASSOCM PMATCH ROFV CHNGW)) 

LOAD!ISCNX)) 

COMPILE!ISCNX)) 

LOAD!(INVM)) 

COMPILE!IINVM2 SIFT)) 

COMMON!ISUP)) 

LOAOIIVBLES)) 

COMPILE!ISOPXEC SUPSUB)) 

LOAD!(RPTSUB)) 

LOAD!!GFIND)) 

LOAD!IMATCH)) 

LOAO!I ATMS)) 

COMPILE!I ATMS GENVBLE RPLCEF)1 
LOAD!IHOMOMF)) 

COMPILE!IHOMOMF ONLY)) 

LOAD!1PUTON2)I 
LOAD!I MODEL)) 

COMPILE!IMODELMAKE CHECKMODEL)) 

COMPILE!IMEET SWMEMB NOMWHtCH GENSET)) 

LOAD!ISLVX)) 

COMPILE!ISLVX)) 

LOAD!IMONOMF)> 

COMPILE!IMONOMF) I 
LOAD!IHLOFN) I 
COMPILE!ICOMPOSITION)) 

EXCISE!*T*I 


OOOIO 

Q0020 

0C03O 

00040 

oooso 

00060 

00070 

00080 

00090 

00100 

00110 

00120 

00130 

00140 

00150 

00160 

00170 

00180 

00190 

00200 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 

00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 

00410 

00420 

00430 
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advice-taker, 7, 101 ff, 127 ff 
argument (of object or statement), 
16, 17 

backtracking, 10, 68, 73 
"built-in" axioms, 33, 56 ff 
"change of variables", 50 
connective, 14^ 
constant, 13_, 20 

logical constant, 14 
syntactic constant, 15 
construction, 77, 86^, 88, 113 
definitions, 15, 19, 24, 25 ff 
detachment, 41 , 58, 107, 109, 112 
EQUAL, 14, 32, 38, 44, 87 
EQUAL2, 14 

existential generalization, 47 
existential specification, 45, 47 
EXISTS, 15 

"explore consequences", 25 ff , 34, 
106 

FEQUAL, 14, 50, 80 
GENFCN, 50, 81 
head (of tree), 21 
HOMOMF, 26, 50, 105 
IMPLIES2, 14 

ISOLVE, 50 ff , 64, 81 ff, 105 
isomorphism, (see ISOLVE) 
lemma, 34, 36, 37, 41 ff , 72 ff, 
91 

LISP, 13 

logical class, 21, 34^, 59, 107 
logical constant, 14. 
matching, 55, 57, 124 
mathematical induction, 94, 96 ff 


MODEL heuristic, 44, 45, 46, 61 ff , 

81, 90, 110 

necessary condition, 27, (also see 
definitions) 
object, 15 

compound object, 16 
Project MAC, 13, 23, 28 
progress, 10, 29, 34, 41, 58 ff, 

112 ff 

heuristic A, 58 ff 
heuristic B, 59 _, 87, 107 , 112 
property list, lj? 

of a condition or definition, 19 
of a table I entry, 21, 30 
of a table II entry, 21 ff, 30 
PNT, 23 
FUTON1, 45 
FUTON2, 46 

quantifier, 15, 20, 48 
reduction, 2JL 

related substitution, 33, 34, 39, 52, 
73, 74, 75 
scanning, 33 ff 
SCANW, 26, 34 ff , 49, 50, 54 
SCNX, 37, 49 

semantic model, 61 ff, 126 ff 
SLVX, 46, 49, 91 
SOLVEX, 26, 48 ff , 90 
statement, 17. 
status, 23 

subordinate tree, 23, 37, 42 ff , 

61 ff, 72 ff 
subscript, 94 ff 

sufficient condition, 15, 19, 24, 

25 ff 
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symbol, 13 

syntactic constant, 15_ 
table I, 19, 21, 25 ff 
table II, 19, 21 ft, 25 ff 
table entry, 19 
term, 15 


asterisked term, 15, 

16, 

18, 

53, 

91, 92 n 




non-asterisked term. 

15, 

17 , 

18, 

53, 91, 92n 





time, 69, 81, 100, 102 
tree, 21 ff, 47 
type, _13_ 

universal specification, 28 
variable, _L3_, 20 
verification, 97 ff 

working backward, 8_, 21, 25, 28, 122 , 
124 

working forward, 42, 53, 89 
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